diff -ur a/irregex-core.scm b/irregex-core.scm --- a/irregex-core.scm 2016-09-11 19:03:00.000000000 -0400 +++ b/irregex-core.scm 2017-01-01 22:24:08.000000000 -0500 @@ -30,6 +30,8 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; History +;; 0.9.6: 2016/12/05 - fixed exponential memory use of + in compilation +;; of backtracking matcher. ;; 0.9.5: 2016/09/10 - fixed a bug in irregex-fold handling of bow ;; 0.9.4: 2015/12/14 - performance improvement for {n,m} matches ;; 0.9.3: 2014/07/01 - R7RS library @@ -3170,16 +3172,7 @@ ((sre-empty? (sre-sequence (cdr sre))) (error "invalid sre: empty *" sre)) (else - (letrec - ((body - (lp (sre-sequence (cdr sre)) - n - flags - (lambda (cnk init src str i end matches fail) - (body cnk init src str i end matches - (lambda () - (next cnk init src str i end matches fail) - )))))) + (let ((body (rec (list '+ (sre-sequence (cdr sre)))))) (lambda (cnk init src str i end matches fail) (body cnk init src str i end matches (lambda () @@ -3204,10 +3197,21 @@ (lambda () (body cnk init src str i end matches fail)))))))) ((+) - (lp (sre-sequence (cdr sre)) - n - flags - (rec (list '* (sre-sequence (cdr sre)))))) + (cond + ((sre-empty? (sre-sequence (cdr sre))) + (error "invalid sre: empty +" sre)) + (else + (letrec + ((body + (lp (sre-sequence (cdr sre)) + n + flags + (lambda (cnk init src str i end matches fail) + (body cnk init src str i end matches + (lambda () + (next cnk init src str i end matches fail) + )))))) + body)))) ((=) (rec `(** ,(cadr sre) ,(cadr sre) ,@(cddr sre)))) ((>=) diff -ur a/irregex-utils.scm b/irregex-utils.scm --- a/irregex-utils.scm 2016-09-11 19:03:00.000000000 -0400 +++ b/irregex-utils.scm 2017-01-01 22:25:25.000000000 -0500 @@ -89,7 +89,7 @@ (case (car x) ((: seq) (cond - ((and (pair? (cddr x)) (pair? (cddr x)) (not (eq? x obj))) + ((and (pair? (cdr x)) (pair? (cddr x)) (not (eq? x obj))) (display "(?:" out) (for-each lp (cdr x)) (display ")" out)) (else (for-each lp (cdr x))))) ((submatch) diff -ur "a/manual-html/Unit irregex.html" "b/manual-html/Unit irregex.html" --- "a/manual-html/Unit irregex.html" 2016-09-11 19:10:47.000000000 -0400 +++ "b/manual-html/Unit irregex.html" 2017-01-01 22:26:05.000000000 -0500 @@ -353,6 +353,6 @@

Returns an optimized SRE matching any of the literal strings in the list, like Emacs' regexp-opt. Note this optimization doesn't help when irregex is able to build a DFA.

sre->string
(sre->string <sre>) procedure
-

Convert an SRE to a POSIX-style regular expression string, if possible.

+

Convert an SRE to a PCRE-style regular expression string, if possible.

-

Previous: Unit extras

Next: Unit srfi-1

\ No newline at end of file +

Previous: Unit extras

Next: Unit srfi-1