module: Don't use "unless".
authorRicardo Wurmus <rekado@elephly.net>
Tue, 18 Jun 2019 16:09:41 +0000 (18:09 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Tue, 18 Jun 2019 16:09:41 +0000 (18:09 +0200)
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

index aea2c27..7f33124 100644 (file)
 (define dotall
   (<p-lambda> (c)
    (let ((x (fluid-ref *flags*)))
-     (unless (zero? (logand x DOTALL))
+     (when (not (zero? (logand x DOTALL)))
        (<p-cc> c)))))
 
 (define multiline
   (<p-lambda> (c)
    (let ((x (fluid-ref *flags*)))
-     (unless (zero? (logand x MULTILINE))
+     (when (not (zero? (logand x MULTILINE)))
        (<p-cc> c)))))
 
 (define (gt f)