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/compile.scm | |
parent | 6495dbb3907b87f42818a1c2a8a976a62381173f (diff) |
only pretty regex string for compile fkn
Diffstat (limited to 'modules/language/python/module/re/compile.scm')
-rw-r--r-- | modules/language/python/module/re/compile.scm | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/modules/language/python/module/re/compile.scm b/modules/language/python/module/re/compile.scm index 9fe6fc0..f92a8dd 100644 --- a/modules/language/python/module/re/compile.scm +++ b/modules/language/python/module/re/compile.scm @@ -4,7 +4,7 @@ #:use-module (language python list) #:use-module (language python string) #:use-module ((parser stis-parser) #:select - ((parse . stisparse) <p-lambda> <p-cc> .. f-nl! f-nl + ((parse . stis-parse) <p-lambda> <p-cc> .. f-nl! f-nl f-tag! f-tag f-seq f-or f-or! f-and f-true g* g+ gmn ng* ng+ ngmn f-reg! f-and! f-test N M X XL f-pk g? ng? f-test! f-eof f-not! f-prev f-not f-out f-rev @@ -13,7 +13,7 @@ #:use-module (parser stis-parser macros) #:use-module (ice-9 match) - #:export (compile-reg test-reg parse)) + #:export (parse compile-reg test-reg parse)) (define trace? #f) (define (trace nm f) @@ -474,11 +474,6 @@ (let ((p (f-seq (f-out '(() ())) (compile (parse-reg x))))) (list p (fluid-ref groups) (fluid-ref groupindex)))) -(define (test-reg y x) +(define (parse s x) (with-fluids ((*whitespace* f-true)) - (stisparse (maybe-add-nk y) (car (compile-reg x))))) - -(define (parse y x) - (with-fluids ((*whitespace* f-true)) - (stisparse (maybe-add-nk y) x))) - + (stis-parse s x))) |