suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix pregexp-match-positions

Browse Source 
svn: r4441

original commit: 4b5146ca5b0d82be714af337cf0df970d994e55b
This commit is contained in:
Matthew Flatt 2006-09-26 20:56:51 +00:00
parent 13f0af4115
commit 54527f8ce4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/pregexp.ss
View File

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