From a90d48975a26bb7bfc663e81edc54dd12a02bad3 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 28 Mar 2012 08:55:44 -0500
Subject: [PATCH] use regexp-match? instead of regexp-match in regexp-based
 contracts

---
 collects/racket/contract/private/guts.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/racket/contract/private/guts.rkt b/collects/racket/contract/private/guts.rkt
index 721960681f..2905a7f695 100644
--- 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)