diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2019-06-04 12:43:35 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2019-06-04 12:43:35 +0200 |
| commit | 447b4b5430639cc6f2f7d716d459488b5761d11c (patch) | |
| tree | df0f4087e4318c90150908b6279015bc650d4b39 | |
| parent | bb01ca8a5d1dd78b1a17c9ebf3d914fe3ef2dc7a (diff) | |
compile: gw-persson: Simplify.
* modules/language/python/compile.scm (gw-persson): Use "and" instead
of "if".
| -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 |