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

allow regexps for pregexp pattern in match

Browse Source 
svn: r4410
This commit is contained in:
Matthew Flatt 2006-09-22 01:59:40 +00:00
parent 6e2f93b147
commit bbcd99e537
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -64,14 +64,15 @@
;; 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)
(and (pair? regex) (bytes? regex)
(equal? ':sub (car regex)))) (regexp? regex)
(byte-regexp? regex))
(pregexp-match regex str) (pregexp-match regex str)
(error 'match:pregex (error 'match:pregex
(string-append (string-append
"this pattern expects either a S-regexp or a U-regexp," "this pattern expects either a string, byte string, regexp or byte regexp,"
" given " (format "~s" regex) "; " " given " (format "~e" regex) "; "
"other argument was " (format "~s" str))))) "other argument was " (format "~e" str)))))
) )