diff options
| -rw-r--r-- | modules/language/python/module/re/compile.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/modules/language/python/module/re/compile.scm b/modules/language/python/module/re/compile.scm index ac2fad5..aea2c27 100644 --- a/modules/language/python/module/re/compile.scm +++ b/modules/language/python/module/re/compile.scm @@ -68,19 +68,19 @@ (define startline (<p-lambda> (c) - (when (= N 0) + (when (zero? N) (<p-cc> c)))) (define dotall (<p-lambda> (c) (let ((x (fluid-ref *flags*))) - (when (not (= 0 (logand x DOTALL))) + (unless (zero? (logand x DOTALL)) (<p-cc> c))))) (define multiline (<p-lambda> (c) (let ((x (fluid-ref *flags*))) - (when (not (= 0 (logand x MULTILINE))) + (unless (zero? (logand x MULTILINE)) (<p-cc> c))))) (define (gt f) @@ -256,7 +256,7 @@ (lambda (x) (let ((fl (fluid-ref *flags*))) (and - (= (logand fl ASCII) 0) + (zero? (logand fl ASCII)) (char-whitespace? x))))) f-nl! (f-reg! "[\n\r \t\f\v]"))) @@ -348,9 +348,9 @@ (let ((chx (string-ref x 0))) (f-test! (lambda (ch) (let ((y (fluid-ref *flags*))) - (if (= 0 (logand y IGNORECASE)) + (if (zero? (logand y IGNORECASE)) (eq? ch chx) - (if (= 0 (logand y ASCII)) + (if (zero? (logand y ASCII)) (eq? (char-upcase chx) (char-upcase ch)) (if (and (< (char->integer ch) 128) (< (char->integer chx) 128)) |