summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--modules/Makefile.am11
-rw-r--r--modules/language/python/eval.scm4
-rw-r--r--modules/language/python/module/errno.scm7
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)