summaryrefslogtreecommitdiff
path: root/modules/language/python/module/errno.scm
diff options
context:
space:
mode:
authorStefan Israelsson Tampe <stefan.itampe@gmail.com>2018-03-16 23:50:39 +0100
committerStefan Israelsson Tampe <stefan.itampe@gmail.com>2018-03-16 23:50:39 +0100
commit2050e8565493ca0491ae4b4c44764eda56626427 (patch)
tree404cda14abdb2ff4a847955dc6780c41ba8663f4 /modules/language/python/module/errno.scm
parentb740e34851938e6e9c8b1e80cf5ffd52164aa2b0 (diff)
os module now compiles
Diffstat (limited to 'modules/language/python/module/errno.scm')
-rw-r--r--modules/language/python/module/errno.scm11
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)