From 086db937b823af89561089ba6ac87b5a94b5b8b7 Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@racket-lang.org>
Date: Tue, 19 Sep 2006 13:01:04 -0400
Subject: [PATCH] pregexp can now return a regexp object.

---
 collects/mzlib/private/match/match-error.ss | 1 +
 1 file changed, 1 insertion(+)

diff --git a/collects/mzlib/private/match/match-error.ss b/collects/mzlib/private/match/match-error.ss
index f4e29e8a43..98bce3ea0c 100644
--- a/collects/mzlib/private/match/match-error.ss
+++ b/collects/mzlib/private/match/match-error.ss
@@ -67,6 +67,7 @@
    ;; this makes pregexp errors a little more friendly
   (define (pregexp-match-with-error regex str)
     (if (or (string? regex)
+            (regexp? regex)
             (and (pair? regex)
                  (equal? ':sub (car regex))))
         (pregexp-match regex str)