From 447b4b5430639cc6f2f7d716d459488b5761d11c Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Tue, 4 Jun 2019 12:43:35 +0200 Subject: compile: gw-persson: Simplify. * modules/language/python/compile.scm (gw-persson): Use "and" instead of "if". --- modules/language/python/compile.scm | 7 +++---- 1 file 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 -- cgit v1.2.3