diff options
Diffstat (limited to 'modules/language/python/module/re/compile.scm')
-rw-r--r-- | modules/language/python/module/re/compile.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/modules/language/python/module/re/compile.scm b/modules/language/python/module/re/compile.scm index 93d7c38..ea71aee 100644 --- a/modules/language/python/module/re/compile.scm +++ b/modules/language/python/module/re/compile.scm @@ -212,7 +212,7 @@ ((#:op x #:*?) (list #:op (reverse-form x) #:*?)) ((#:op x #:+?) (list #:op (reverse-form x) #:+?)) ((#:op x #:??) (list #:op (reverse-form x) #:??)) - ((and a (#:ch (#:class x))) a) + ((and a (#:ch (#:class x))) a) ((and a (#:ch x)) a) ((and a (#:range x)) a) ((and a (#:bracket not ch ...)) a))) @@ -220,9 +220,9 @@ (define f-w (f-or! (f-test! (lambda (x) - (let ((x (fluid-ref *flags*))) + (let ((y (fluid-ref *flags*))) (and - (= (logand x ASCII) 0) + (= (logand y ASCII) 0) (or (char-numeric? x) (char-alphabetic? x)))))) @@ -232,9 +232,9 @@ (define f-d (f-or! (f-test! (lambda (x) - (let ((x (fluid-ref *flags*))) + (let ((y (fluid-ref *flags*))) (and - (= (logand x ASCII) 0) + (= (logand y ASCII) 0) (char-numeric? x))))) (f-reg! "0-9"))) |