From 058c596cd3886447da31171e1026d4d19f5f5313 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Tue, 18 Jun 2019 18:09:41 +0200 Subject: module: Don't use "unless". MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit This is a partial revert of commit 4197555e6f7fa732bb5bf605c850972bdd84ad29. This problem was reported by Ludovic Courtès. * modules/language/python/module/re/compile.scm (multiline, dotall): Fix unexpected compilation error by not using "unless". --- modules/language/python/module/re/compile.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/modules/language/python/module/re/compile.scm b/modules/language/python/module/re/compile.scm index aea2c27..7f33124 100644 --- a/modules/language/python/module/re/compile.scm +++ b/modules/language/python/module/re/compile.scm @@ -74,13 +74,13 @@ (define dotall ( (c) (let ((x (fluid-ref *flags*))) - (unless (zero? (logand x DOTALL)) + (when (not (zero? (logand x DOTALL))) ( c))))) (define multiline ( (c) (let ((x (fluid-ref *flags*))) - (unless (zero? (logand x MULTILINE)) + (when (not (zero? (logand x MULTILINE))) ( c))))) (define (gt f) -- cgit v1.2.3