diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-12-06 00:51:31 +0100 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-12-06 00:51:31 +0100 |
| commit | 31a53d9844f3431099010cc6ebef8fbbf1a38855 (patch) | |
| tree | cb0396c9d78d2d741ecfab8ba682897125acec4b | |
| parent | 3bb67fbf6caf2f05b8cfd4ae4da47b07791985b5 (diff) | |
guilemod
| -rw-r--r-- | modules/language/python/guilemod.scm | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/modules/language/python/guilemod.scm b/modules/language/python/guilemod.scm index 31fdf91..1e3351e 100644 --- a/modules/language/python/guilemod.scm +++ b/modules/language/python/guilemod.scm @@ -27,7 +27,7 @@ (define-exp-C *do-extension-dispatch* #t) (define-exp-C *extension-dispatches* '((("py" "python") . python) (("pl" "prolog") . prolog) - (("plb" "prolog-boot") . prolog))) + (("plb" "prolog-boot") . prolog-boot))) (define-exp-C %current-file% (make-fluid '(guile))) @@ -55,8 +55,7 @@ (define-set-C compile-file (lambda* (file #:key (output-file #f) - (from (pk 'lang-from - ((C default-language) file))) + (from ((C default-language) file)) (to 'bytecode) (env ((C default-environment) from)) (opts '()) @@ -154,6 +153,10 @@ (emit port "~A: warning: possibly wrong number of arguments to `~A'~%" loc name)))) + + (shadowed-toplevel + "" + ,(lambda x x)) (duplicate-case-datum "report a duplicate datum in a case expression" @@ -250,7 +253,7 @@ (if (pair? u) (let ((tag (make-prompt-tag))) (call-with-prompt - tag + tag (lambda () (guile-load (string-append p "." (car u)) (lambda () (abort-to-prompt tag)))) @@ -262,3 +265,6 @@ (define-set-G primitive-load-path pload) + + + |