From 555aa8cf4c6145898ae3697a9fe1c00f70b7d6c4 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sun, 18 Oct 2009 19:57:27 +0000
Subject: [PATCH] fixed check-regexp-match so that the test suite fails when
 the argument isn't a string (instead of signalling an internal error)

svn: r16361
---
 collects/schemeunit/util.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/schemeunit/util.ss b/collects/schemeunit/util.ss
index dc337a9e81..94561a7c5d 100644
--- a/collects/schemeunit/util.ss
+++ b/collects/schemeunit/util.ss
@@ -73,5 +73,6 @@
       (test-case case-name case-body ...) ...))))
 
 (define-simple-check (check-regexp-match regex string)
-  (regexp-match regex string))
+  (and (string? string) 
+       (regexp-match regex string)))