Fix infinite loop in pregexp-split.

svn: r4398

original commit: 6bf106f78527da23961e6312c9a34596b8cca942
This commit is contained in:
Sam Tobin-Hochstadt 2006-09-20 14:12:48 +00:00
parent f4e29064e5
commit 9c94233a21

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))