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

pregexp can now return a regexp object.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2006-09-19 13:01:04 -04:00
parent b42e317e0c
commit 086db937b8
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/mzlib/private/match/match-error.ss
View File

@ -67,6 +67,7 @@
;; this makes pregexp errors a little more friendly ;; this makes pregexp errors a little more friendly
(define (pregexp-match-with-error regex str) (define (pregexp-match-with-error regex str)
(if (or (string? regex) (if (or (string? regex)
(regexp? regex)
(and (pair? regex) (and (pair? regex)
(equal? ':sub (car regex)))) (equal? ':sub (car regex))))
(pregexp-match regex str) (pregexp-match regex str)