diff options
| -rw-r--r-- | modules/Makefile.am | 11 | ||||
| -rw-r--r-- | modules/language/python/eval.scm | 4 | ||||
| -rw-r--r-- | modules/language/python/module/errno.scm | 7 |
3 files changed, 12 insertions, 10 deletions
diff --git a/modules/Makefile.am b/modules/Makefile.am index de8b03e..e968139 100644 --- a/modules/Makefile.am +++ b/modules/Makefile.am @@ -45,13 +45,15 @@ SOURCES = \ language/python/module/re.scm \ language/python/module/resource.scm \ language/python/module/stat.scm \ + language/python/module/heapq.scm \ + language/python/module/python.scm \ + language/python/module/keyword.scm \ + language/python/module/collections/abc.scm \ + language/python/module/collections.scm \ language/python/module/pwd.scm \ language/python/module/os/path.scm \ language/python/module/os.scm \ - language/python/module/python.scm \ language/python/spec.scm \ - language/python/module/collections/abc.scm \ - language/python/module/collections.scm \ language/python/module/operator.scm \ language/python/module/pickle.scm \ language/python/module/_random.scm \ @@ -71,14 +73,11 @@ SOURCES = \ language/python/module/signal.scm \ language/python/module/resource.scm \ language/python/module/select.scm \ - language/python/module/pwd.scm \ language/python/module/math.scm \ - language/python/module/heapq.scm \ language/python/module/copy.scm \ language/python/module/_csv.scm \ language/python/module/itertools.scm \ language/python/module/locale.scm \ - language/python/module/keyword.scm \ language/python/module/cmath.scm \ language/python/module/builtins.scm \ language/python/module/bisect.scm \ 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) |