From 54527f8ce43d0601832f37b2917845d80cc50c74 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 26 Sep 2006 20:56:51 +0000 Subject: [PATCH] fix pregexp-match-positions svn: r4441 original commit: 4b5146ca5b0d82be714af337cf0df970d994e55b --- 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 b62451c..cf40900 100644 --- a/collects/mzlib/pregexp.ss +++ b/collects/mzlib/pregexp.ss @@ -32,7 +32,7 @@ (define/kw (pregexp-match-positions pattern input #:optional [start-k 0] [end-k #f] [output-port #f]) (let ([pattern (pattern->pregexp 'pregexp-match-positions pattern)]) - (regexp-match pattern input start-k end-k output-port))) + (regexp-match-positions pattern input start-k end-k output-port))) (define/kw (pregexp-split pattern string #:optional [start 0] [end #f]) (let ([pattern (pattern->pregexp 'pregexp-split pattern)])