diff options
author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-08-15 22:09:20 +0200 |
---|---|---|
committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-08-15 22:09:20 +0200 |
commit | b2f9097fc17712d7ab9139b15fdcb956ac55375d (patch) | |
tree | 9b90898fe3f8654afc6074857fdb6d9e589dfded /modules/language/python/module/re.scm | |
parent | 6495dbb3907b87f42818a1c2a8a976a62381173f (diff) |
only pretty regex string for compile fkn
Diffstat (limited to 'modules/language/python/module/re.scm')
-rw-r--r-- | modules/language/python/module/re.scm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/modules/language/python/module/re.scm b/modules/language/python/module/re.scm index 6765654..edd869d 100644 --- a/modules/language/python/module/re.scm +++ b/modules/language/python/module/re.scm @@ -1,6 +1,7 @@ (define-module (language python module re) #:use-module (language python module re compile) #:use-module (language python module re flags) + #:use-module (language python module re parser) #:use-module (language python list) #:use-module (language python dict) #:use-module (language python try) @@ -425,7 +426,13 @@ -(def (compile s (= flags 0)) (Regexp s flags)) +(def (compile s (= flags 0)) + (with-fluids ((pretty #t)) + (Regexp s flags))) + +(def (compile-r s (= flags 0)) + (with-fluids ((pretty #f)) + (Regexp s flags))) (define (purge) (values)) |