diff options
Diffstat (limited to 'modules/language/python/compile.scm')
| -rw-r--r-- | modules/language/python/compile.scm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/modules/language/python/compile.scm b/modules/language/python/compile.scm index fe3533b..170cb11 100644 --- a/modules/language/python/compile.scm +++ b/modules/language/python/compile.scm @@ -1392,7 +1392,8 @@ ,(C 'clear-warning-data) (fluid-set! (@@ (system base message) %dont-warn-list) '()) ,@(map (lambda (s) `(,(C 'var) ,s)) globs) - ,@(map (g globs exp) x)))) + ,@(map (g globs exp) x) + (,(C 'export-all))))) (begin (if (fluid-ref (@@ (system base compile) %in-compile)) (set! s/d 'set!) @@ -1407,8 +1408,8 @@ ,(C 'clear-warning-data) (fluid-set! (@@ (system base message) %dont-warn-list) '()) ,@(map (lambda (s) `(,(C 'var) ,s)) globs) - ,@(map (g globs exp) x) - (,(C 'export-all))))))) + ,@(map (g globs exp) x)))))) + (define-syntax-parameter break (lambda (x) #'(values))) @@ -1822,13 +1823,11 @@ ((_ v) #'v) ((_ v (#:fastfkn-ref f _) . l) - #'(ref-x (lambda x (if (py-class? v) (apply f x) (apply f v x))) . l)) + #'(ref-x (lambda x (if (pyclass? v) (apply f x) (apply f v x))) . l)) ((_ v (#:fast-id f _) . l) #'(ref-x (f v) . l)) ((_ v (#:identifier x) . l) #'(ref-x (ref v x) . l)) - ((_ v (#:identifier x) . l) - #'(ref-x (ref v x) . l)) ((_ v (#:call-obj x) . l) #'(ref-x (x v) . l)) ((_ v (#:call x ...) . l) |