fix bug in guile-mod
authorStefan Israelsson Tampe <stefan.itampe@gmail.com>
Thu, 13 Dec 2018 20:14:35 +0000 (21:14 +0100)
committerStefan Israelsson Tampe <stefan.itampe@gmail.com>
Thu, 13 Dec 2018 20:14:35 +0000 (21:14 +0100)
modules/language/python/guilemod.scm

index c8dc413..9bcfa74 100644 (file)
 (define-C default-language
   (lambda (file)
     (define default ((C current-language)))
-    (if (C *do-extension-dispatch*)
-        (let ((ext (car (reverse (string-split file #\.)))))
-          (let lp ((l (C *extension-dispatches*)))
-            (if (pair? l)
-                (if (member ext (caar l))
-                    (let ((r (cdar l)))
-                      (if ((C language?) default)
-                          (if (eq? ((C language-name) default) r)
-                              default
-                              r)
-                          r))
-                    (lp (cdr l)))
-                default)))
-        default)))
+    (pk file)
+    (pk
+     (if (C *do-extension-dispatch*)
+         (let ((ext (car (reverse (string-split file #\.)))))
+           (let lp ((l (C *extension-dispatches*)))
+             (if (pair? l)
+                 (if (member ext (caar l))
+                     (let ((r (cdar l)))
+                       (if ((C language?) default)
+                           (if (eq? ((C language-name) default) r)
+                               default
+                               r)
+                           r))
+                     (lp (cdr l)))
+                 default)))
+         default))))
 
 
 (define-exp-C %in-compile (make-fluid #f))
                    loc))
                  (else
                   (emit port "~A: `format' warning~%" loc)))))))))
-
-
-
-(define pload
-  (let ((guile-load (@ (guile) primitive-load-path)))
-    (lambda (p . q)
-      (let lp ((l *extension-dispatches*))
-        (if (pair? l)
-            (let lp2 ((u (caar l)))
-              (if (pair? u)
-                  (aif it (%search-load-path (string-append p "." (car u)))
-                       (apply guile-load it q)
-                       (lp2 (cdr u)))
-                  (lp (cdr l))))
-            (apply guile-load p q))))))
-
-
-(define-set-G primitive-load-path pload)
-
-
-