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

use regexp-match? instead of regexp-match in regexp-based contracts

Browse Source
This commit is contained in:
Robby Findler 2012-03-28 08:55:44 -05:00
parent 6e5cf70c95
commit a90d48975a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/racket/contract/private/guts.rkt
View File

@ -305,10 +305,10 @@
(build-flat-contract-property (build-flat-contract-property
#:first-order #:first-order
(λ (ctc) (λ (ctc)
(define reg (regexp/c-reg ctc))
(λ (x) (λ (x)
(and (or (string? x) (bytes? x)) (and (or (string? x) (bytes? x))
(regexp-match (regexp/c-reg ctc) x) (regexp-match? reg x))))
#t)))
#:name (λ (ctc) (regexp/c-reg ctc)) #:name (λ (ctc) (regexp/c-reg ctc))
#:stronger #:stronger
(λ (this that) (λ (this that)