imporved relative imports
authorStefan Israelsson Tampe <stefan.itampe@gmail.com>
Wed, 12 Sep 2018 19:49:43 +0000 (21:49 +0200)
committerStefan Israelsson Tampe <stefan.itampe@gmail.com>
Wed, 12 Sep 2018 19:49:43 +0000 (21:49 +0200)
modules/language/python/compile.scm

index 394e8d9..821389c 100644 (file)
     ((#:global . _)
      vs)
      
-    ((#:import (#:name ((ids ...) . as) ...) ...)
+    ((#:import (#:name ((ids ...) . as) ...) ...)
      (let lp ((ids ids) (as as) (vs vs))
        (if (pair? ids)
            (let lp2 ((ids2 (car ids)) (as2 (car as)) (vs vs))
      vs)
     ((#:global . _)     
      vs)
-    ((#:import (#:name ((ids ...) . as)) ...)
+    ((#:import (#:name ((ids ...) . as)) ...)
      (let lp ((ids ids) (as as) (vs vs))
        (if (pair? as)
           (lp (cdr ids) (cdr as)
               ,@(map (lambda (dots ids as)
                        (let* ((u   (module-name (current-module)))
                               (u   (reverse (list-cdr-ref (reverse (u-it u))
-                                                          (length dots))))
+                                                          (- (length dots) 1))))
 
                               (path (append (if (null? dots) '() u)
                                             (map (g vs exp) ids))))