diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-03-21 20:27:26 +0100 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-03-21 20:27:26 +0100 |
| commit | ebd4217a508490554aa0419de3720be6156be5df (patch) | |
| tree | bc66039242da957a5f05d5994ddea5e541d330db /modules | |
| parent | 2e6a602fbe7d9861a4db114f144ab48f54e35010 (diff) | |
compile
Diffstat (limited to 'modules')
| -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)))))) |