From 19930f72a8356dc0b9247ad633d17e506943e52e Mon Sep 17 00:00:00 2001 From: Stefan Israelsson Tampe Date: Thu, 13 Dec 2018 21:14:35 +0100 Subject: fix bug in guile-mod --- modules/language/python/guilemod.scm | 51 +++++++++++------------------------- 1 file changed, 16 insertions(+), 35 deletions(-) (limited to 'modules/language') diff --git a/modules/language/python/guilemod.scm b/modules/language/python/guilemod.scm index c8dc413..9bcfa74 100644 --- a/modules/language/python/guilemod.scm +++ b/modules/language/python/guilemod.scm @@ -36,20 +36,22 @@ (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)) @@ -237,24 +239,3 @@ 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) - - - -- cgit v1.2.3