remove warnings, fix wrong compilation order
authorStefan Israelsson Tampe <stefan.itampe@gmail.com>
Wed, 13 Mar 2019 08:35:32 +0000 (09:35 +0100)
committerStefan Israelsson Tampe <stefan.itampe@gmail.com>
Wed, 13 Mar 2019 08:35:32 +0000 (09:35 +0100)
modules/Makefile.am
modules/language/python/eval.scm
modules/language/python/module/errno.scm

index de8b03e..e968139 100644 (file)
@@ -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 \
index 5328fe5..3849b35 100644 (file)
@@ -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
index 1b1a508..3720235 100644 (file)
 (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)