Fix infinite loop in pregexp-split.

svn: r4398
This commit is contained in:
Sam Tobin-Hochstadt 2006-09-20 14:12:48 +00:00
parent b0f28a2611
commit 6bf106f785

View File

@ -30,7 +30,7 @@
(regexp-match (pattern->pregexp pattern) input start-k end-k output-port))
(define/kw (pregexp-split pattern string #:optional [start 0] [end #f])
(pregexp-split (pattern->pregexp pattern) string start end))
(regexp-split (pattern->pregexp pattern) string start end))
(define/kw (pregexp-replace pattern input insert)
(regexp-replace (pattern->pregexp pattern) input insert))