module: Use "zero?" and "unless".
authorRicardo Wurmus <rekado@elephly.net>
Wed, 5 Jun 2019 12:45:27 +0000 (14:45 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Wed, 5 Jun 2019 12:45:27 +0000 (14:45 +0200)
* modules/language/python/module/re/compile.scm (startine, dotall,
multiline, f-s, get-ch): Use "zero?" and "unless".

modules/language/python/module/re/compile.scm

index ac2fad5..aea2c27 100644 (file)
   
 (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)
     (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]")))
   (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))