summaryrefslogtreecommitdiff
path: root/modules/language
diff options
context:
space:
mode:
Diffstat (limited to 'modules/language')
-rw-r--r--modules/language/python/eval.scm4
-rw-r--r--modules/language/python/module/errno.scm7
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)