diff options
| -rw-r--r-- | modules/language/python/compile.scm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/modules/language/python/compile.scm b/modules/language/python/compile.scm index c0513c4..809476c 100644 --- a/modules/language/python/compile.scm +++ b/modules/language/python/compile.scm @@ -216,8 +216,7 @@ empty list." (lambda () (if (not p) (reload-module (resolve-module 'l))) (use-modules-- a ...)) - (lambda x - #f))) + (const #f))) (eval-when (eval load) (catch #t (lambda () @@ -1274,7 +1273,7 @@ empty list." ;; Make sure to load the module in (let ((? (catch #t (lambda () (Module (reverse l) (reverse xl)) #t) - (lambda x #f)))) + (const #f)))) (if (eq? ? #t) (for-each dont-warn (get-exported-symbols l))) `(,(C 'use) ,? ,l ,l)))) @@ -1287,7 +1286,7 @@ empty list." ;; Make sure to load the module in (let ((? (catch #t (lambda () (Module (reverse l) (reverse xl)) #t) - (lambda x #f)))) + (const #f)))) (if (eq? ? #t) (for-each dont-warn (get-exported-symbols l))) `(,(C 'use) ,? ,l ,l)))) @@ -1301,7 +1300,7 @@ empty list." ;; Make sure to load the module in (let ((? (catch #t (lambda () (Module (reverse l) (reverse xl)) #t) - (lambda x #f)))) + (const #f)))) (if (eq? ? #t) (for-each dont-warn (get-exported-symbols l))) `(,(C 'use) ,? ,l ,l)))) |