summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--modules/language/python/compile.scm7
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