diff options
Diffstat (limited to 'modules/language/python/module/re.scm')
| -rw-r--r-- | modules/language/python/module/re.scm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/modules/language/python/module/re.scm b/modules/language/python/module/re.scm index 139393e..4da2138 100644 --- a/modules/language/python/module/re.scm +++ b/modules/language/python/module/re.scm @@ -16,7 +16,8 @@ f-seq! f-and! f-nl f-reg f-seq Ds f-or! ff* f-ftr)) #:use-module ((ice-9 match) #:select ((match . ice-match))) - #:re-export (A ASCII DEBUG I IGNORECASE L LOCALE M MULTILINE X VERBOSE) + #:re-export (A ASCII DEBUG I IGNORECASE L LOCALE M MULTILINE X VERBOSE + S DOTALL) #:export (compile match fullmatch search split finditer findall sub subn purge escape)) @@ -188,7 +189,9 @@ (f-seq (f-or! (f-seq! e-start (f-and! e) e-end - (f-ftr (lambda (c) (yield (ReMatch c re (gs) (ge) s)) '()))) + (f-ftr (lambda (c) + (yield (ReMatch c re (gs) (ge) s)) + '()))) (f-seq (f-reg "."))) (Ds (lp))))))))))) @@ -326,7 +329,8 @@ (() #t))) (set self '__t t) - (set self 'regs (__regs self))))) + (set self 'regs (__regs self)) + (pk (span self))))) (define er (list 'er)) (define group |