compile

diff --git a/modules/language/python/compile.scm b/modules/language/python/compile.scm
index 80f523cc14e8d96d8a0b712d9e8ce3a562e94bae..8fe13cf64784e5325401ce74046d2eba6351c6f9 100644 (file)
--- 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))))))