diff options
Diffstat (limited to 'modules/language/python/module/errno.scm')
| -rw-r--r-- | modules/language/python/module/errno.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/modules/language/python/module/errno.scm b/modules/language/python/module/errno.scm index 1626175..f57bf15 100644 --- a/modules/language/python/module/errno.scm +++ b/modules/language/python/module/errno.scm @@ -1,7 +1,7 @@ (define-module (language python module errno) #:use-module (system foreign) #:use-module (oop pf-objects) - #:export (errno errorcode)) + #:export (errno set_errno errorcode)) (define errno @@ -9,6 +9,12 @@ (lambda () (pointer-address (dereference-pointer f))))) +(define set_errno + (let* ((f (dynamic-pointer "errno" (dynamic-link))) + (v (pointer->bytevector f 1))) + (lambda (x) + (bytevector-set! v 0 x)))) + (define errorcode (make-hash-table)) (define-syntax-rule (mk x n) |