diff options
author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-03-29 22:42:32 +0200 |
---|---|---|
committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-03-29 22:42:32 +0200 |
commit | b5f2f47ddaf43eff0ce328db4e2ec3bfc276bf86 (patch) | |
tree | 7d1536017d51e1ff2db11902bc89337238261d20 /modules/language/python/module/os.scm | |
parent | c8877ccaf7d6e9021899da2933221b7f276b440c (diff) |
debugged os
Diffstat (limited to 'modules/language/python/module/os.scm')
-rw-r--r-- | modules/language/python/module/os.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/modules/language/python/module/os.scm b/modules/language/python/module/os.scm index 03b0848..a735f13 100644 --- a/modules/language/python/module/os.scm +++ b/modules/language/python/module/os.scm @@ -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 @@ -2259,14 +2260,14 @@ (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)) |