diff options
| -rw-r--r-- | modules/language/python/compile.scm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/modules/language/python/compile.scm b/modules/language/python/compile.scm index 54b6f5b..d6eb07d 100644 --- a/modules/language/python/compile.scm +++ b/modules/language/python/compile.scm @@ -249,10 +249,9 @@ empty list." (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 (gw-persson x l) - (if (or (member x (fluid-ref (@@ (system base message) %dont-warn-list))) - (member x l)) - x - #f)) + (and (or (member x (fluid-ref (@@ (system base message) %dont-warn-list))) + (member x l)) + x)) (define (dont-warn v) (catch #t |