supports_dir_fs support_effective_ids supports_fd
confstr confstr_names cpu_count sysconf sysconf_names
-
+ getloadavg
+
RTLD_LAZY RTLD_NOW RTLD_GLOBAL RTLD_LOCAL RTLD_NODELETE
RTLD_NOLOAD RTLD_DEEPBIND
(let ((id2 (if (number? id) id (pylist-ref sysconf_names id))))
(if id2
(sysconf_ id2)
- (raise KeyError "no confstr for " id))))
+ (raise KeyError "no sysconf str for " id))))
(defineu getloadavg ()
(let ((f (pointer->procedure long
(dynamic-func "getloadavg"
(dynamic-link))
(list '* int))))
- (lambda (id)
+ (lambda ()
(let* ((v (make-bytevector (* 3 8)))
(vp (bytevector->pointer v)))
(rm (f vp 3))