diff options
author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-03-16 23:50:39 +0100 |
---|---|---|
committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-03-16 23:50:39 +0100 |
commit | 2050e8565493ca0491ae4b4c44764eda56626427 (patch) | |
tree | 404cda14abdb2ff4a847955dc6780c41ba8663f4 /modules/language/python/module/errno.scm | |
parent | b740e34851938e6e9c8b1e80cf5ffd52164aa2b0 (diff) |
os module now compiles
Diffstat (limited to 'modules/language/python/module/errno.scm')
-rw-r--r-- | modules/language/python/module/errno.scm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/modules/language/python/module/errno.scm b/modules/language/python/module/errno.scm index 6bcc02a..1626175 100644 --- a/modules/language/python/module/errno.scm +++ b/modules/language/python/module/errno.scm @@ -1,7 +1,6 @@ (define-module (language python module errno) #:use-module (system foreign) - #:use-module (language python dict) - #:use-module (language python list) + #:use-module (oop pf-objects) #:export (errno errorcode)) @@ -10,13 +9,15 @@ (lambda () (pointer-address (dereference-pointer f))))) -(define errorcode (dict)) +(define errorcode (make-hash-table)) (define-syntax-rule (mk x n) (begin - (define x n) + (if (defined? 'x) + (define! 'x x) + (define! 'x n)) (export x) - (pylist-set! errorcode n "x"))) + (pylist-set! errorcode n (symbol->string 'x)))) (mk EPERM 1) (mk ENOENT 2) |