fix minor module bug
authorStefan Israelsson Tampe <stefan.itampe@gmail.com>
Mon, 13 Aug 2018 17:15:33 +0000 (19:15 +0200)
committerStefan Israelsson Tampe <stefan.itampe@gmail.com>
Mon, 13 Aug 2018 17:15:33 +0000 (19:15 +0200)
modules/language/python/module.scm
modules/language/python/module/python.scm

index aacf3a1b2d721e03c2bc051136df61bbe49d79f2..16204e4e6f64fd21717f26c823dcbf40eefa5bb1 100644 (file)
          #f)))
 
     (define __init__
-    (case-lambda
-     ((self pre l nm)
-      (match l
-       ((name)
-       (rawset self '_path (reverse (cons name pre)))        
-       (_cont self #f   (cons name pre) #f (cons name nm) #f))
+      (case-lambda
+        ((self pre l nm)
+         (match l
+           ((name)
+            (rawset self '_path (reverse (cons name pre)))           
+            (_cont self #f   (cons name pre) #f (cons name nm) #f))
        
-       ((name . (and l (name2 . _)))
-       (rawset self '_path (reverse (cons name pre)))
-       (_cont self name2 (cons name pre) l  (cons name nm) #t))))
+           ((name . (and l (name2 . _)))
+            (rawset self '_path (reverse (cons name pre)))
+            (_cont self name2 (cons name pre) l  (cons name nm) #t))))
        
-
-     ((self l nm)
-      (_cont self #f l #f nm #f))
-
-     ((self l)
-      (if (pair? l)
-         (if (and (> (length l) 3)
-                  (equal? (list (list-ref l 0)
-                                (list-ref l 1)
-                                (list-ref l 2))
-                          '(language python module)))
-             (__init__ self (reverse '(language python module)) (cdddr l)
-                        '())
-              (__init__ self '() l '()))
-         (__init__ self
-                   (append
-                     '(language python module)
-                     (map string->symbol
-                          (string-split l #\.))))))))
+        
+        ((self l nm)
+         (_cont self #f l #f nm #f))
+
+        ((self l)
+         (if (pair? l)
+             (if (and (> (length l) 3)
+                      (equal? (list (list-ref l 0)
+                                    (list-ref l 1)
+                                    (list-ref l 2))
+                              '(language python module)))
+                 (__init__ self (reverse '(language python module)) (cdddr l)
+                           '())
+                 (__init__ self '() l '()))
+             (__init__ self
+                       (append
+                        '(language python module)
+                        (map string->symbol
+                             (string-split l #\.))))))))
 
   (define __update__
     (case-lambda
 (define (import-f x f . l)
   (if x
       (if (m? x)
-         (begin (apply (rawref x '__update__) l) x)
+         (begin (apply (rawref x '__update__) l) x)
          (apply f l))
       (apply f l)))
index 4c274ead98ece2714db7990409f9dc89e7cf1eec..9f8defe07c853c364b7ac976820789b6633a59fe 100644 (file)
@@ -20,6 +20,6 @@
         (resolve-interface 'iface)))]))
 
 (set! (@ (language python module os) path)
-  (Module '(language python module os path)))
+  (Module '(path os module python language) '(path os)))
 
 (re-export-all (language python module _python))