diff options
Diffstat (limited to 'modules/language/python/compile.scm')
-rw-r--r-- | modules/language/python/compile.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/modules/language/python/compile.scm b/modules/language/python/compile.scm index d0e1ca5..95878a4 100644 --- a/modules/language/python/compile.scm +++ b/modules/language/python/compile.scm @@ -46,16 +46,16 @@ (lambda (x) (catch #t (lambda () - (set! (@@ (system base message) %dont-warn-list) '())) + (fluid-set! (@@ (system base message) %dont-warn-list) '())) (lambda x (pre))) #f)) (define (dont-warn v) (catch #t (lambda () - (set! (@@ (system base message) %dont-warn-list) + (fluid-set! (@@ (system base message) %dont-warn-list) (cons v - (@@ (system base message) %dont-warn-list)))) + (fluid-ref (@@ (system base message) %dont-warn-list))))) (lambda x (values)))) (define *prefixes* (make-fluid '())) |