From 6bf106f78527da23961e6312c9a34596b8cca942 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Wed, 20 Sep 2006 14:12:48 +0000 Subject: [PATCH] Fix infinite loop in pregexp-split. svn: r4398 --- collects/mzlib/pregexp.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mzlib/pregexp.ss b/collects/mzlib/pregexp.ss index b2ef9605f7..4ef4e881b3 100644 --- a/collects/mzlib/pregexp.ss +++ b/collects/mzlib/pregexp.ss @@ -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))