diff options
Diffstat (limited to 'modules/language')
-rw-r--r-- | modules/language/python/eval.scm | 4 | ||||
-rw-r--r-- | modules/language/python/module/errno.scm | 7 |
2 files changed, 7 insertions, 4 deletions
diff --git a/modules/language/python/eval.scm b/modules/language/python/eval.scm index 5328fe5..3849b35 100644 --- a/modules/language/python/eval.scm +++ b/modules/language/python/eval.scm @@ -140,6 +140,8 @@ global environment @var{global}." ((eval x . l) #'(eval0 x . l))))) +(define (comp x) (error "not implemented")) + (define* (eval0 x #:optional (locals #f) (globals #f)) (cond ((string? x) @@ -152,7 +154,7 @@ global environment @var{global}." (local-eval x locals globals)))) (define* (compile x filename mode - #:optional (flags 0) (dont_inherit #f) (optiomize -1)) + #:optional (flags 0) (dont_inherit #f) (optimize -1)) (aif xp (p x) (aif cp (comp xp) cp diff --git a/modules/language/python/module/errno.scm b/modules/language/python/module/errno.scm index 1b1a508..3720235 100644 --- a/modules/language/python/module/errno.scm +++ b/modules/language/python/module/errno.scm @@ -21,9 +21,10 @@ (define-syntax-rule (mk x n) (begin (if (defined? 'x) - (define! 'x x) - (define! 'x n)) - (export x) + (re-export x) + (begin + (define! 'x n) + (export x))) (pylist-set! errorcode n (symbol->string 'x)))) (mk EPERM 1) |