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

2012-03-28 08:55:44 -05:00 · 2012-03-28 08:55:44 -05:00 · a90d48975a
commit a90d48975a
parent 6e5cf70c95
1 changed files with 2 additions and 2 deletions
--- a/collects/racket/contract/private/guts.rkt
+++ b/collects/racket/contract/private/guts.rkt
@ -305,10 +305,10 @@
  (build-flat-contract-property
   #:first-order
   (λ (ctc)
+     (define reg (regexp/c-reg ctc))
      (λ (x)
         (and (or (string? x) (bytes? x))
-              (regexp-match (regexp/c-reg ctc) x)
-              #t)))
+              (regexp-match? reg x))))
   #:name (λ (ctc) (regexp/c-reg ctc))
   #:stronger
   (λ (this that)