debugged os
authorStefan Israelsson Tampe <stefan.itampe@gmail.com>
Thu, 29 Mar 2018 20:42:32 +0000 (22:42 +0200)
committerStefan Israelsson Tampe <stefan.itampe@gmail.com>
Thu, 29 Mar 2018 20:42:32 +0000 (22:42 +0200)
modules/language/python/module/os.scm

index 03b0848d028176e538ebc254ff455129ee3bdf56..a735f131ade43fb267580909e0dba4aa717f88d4 100644 (file)
@@ -87,7 +87,8 @@
                   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))