compile
authorStefan Israelsson Tampe <stefan.itampe@gmail.com>
Wed, 21 Mar 2018 19:27:26 +0000 (20:27 +0100)
committerStefan Israelsson Tampe <stefan.itampe@gmail.com>
Wed, 21 Mar 2018 19:27:26 +0000 (20:27 +0100)
modules/language/python/compile.scm

index 80f523cc14e8d96d8a0b712d9e8ce3a562e94bae..8fe13cf64784e5325401ce74046d2eba6351c6f9 100644 (file)
@@ -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)
           `(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
           `(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))))))