module: Don't use "unless".

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".

diff --git a/modules/language/python/module/re/compile.scm b/modules/language/python/module/re/compile.scm
index aea2c27..7f33124 100644 (file)
--- a/modules/language/python/module/re/compile.scm
+++ b/modules/language/python/module/re/compile.scm
@@ -74,13 +74,13 @@
 (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)