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 80f523c..8fe13cf 100644 --- a/modules/language/python/compile.scm +++ b/modules/language/python/compile.scm @@ -40,7 +40,7 @@ (define s/d 'set!) -(define (pre) (warn "Patching guile will lead to way better experience use 'python.patch' on guile-2.2")) +(define (pre) (warn "Patching guile will lead to way better experience use 'python.patch' on guile-2.2 e.g. (use-modules (language python guilemod))")) (define-syntax clear-warning-data (lambda (x) @@ -1319,7 +1319,7 @@ `(begin ,@start ,(C 'clear-warning-data) - (set! (@@ (system base message) %dont-warn-list) '()) + (fluid-set! (@@ (system base message) %dont-warn-list) '()) ,@(map (lambda (s) `(,(C 'var) ,s)) globs) ,@(map (g globs exp) x)))) (begin @@ -1334,7 +1334,7 @@ `(begin ,@start ,(C 'clear-warning-data) - (set! (@@ (system base message) %dont-warn-list) '()) + (fluid-set! (@@ (system base message) %dont-warn-list) '()) ,@(map (lambda (s) `(,(C 'var) ,s)) globs) ,@(map (g globs exp) x)))))) |