diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2019-06-18 18:09:41 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2019-06-18 18:09:41 +0200 |
| commit | 058c596cd3886447da31171e1026d4d19f5f5313 (patch) | |
| tree | 10ba89482a42f0966312fc1e2ff6648dcea204e4 /modules | |
| parent | 9273079f313855813ccc75b48b06f46ab9f1e9fb (diff) | |
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".
Diffstat (limited to 'modules')
| -rw-r--r-- | modules/language/python/module/re/compile.scm | 4 |
1 files 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 (<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) |