From 89171c03294a0418fd3009bdd181792568626f04 Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@racket-lang.org>
Date: Wed, 24 Sep 2008 19:55:29 +0000
Subject: [PATCH] Make contract error regexps more flexible.

svn: r11855
---
 collects/tests/typed-scheme/fail/back-and-forth.ss | 2 +-
 collects/tests/typed-scheme/fail/cnt-err1.ss       | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/tests/typed-scheme/fail/back-and-forth.ss b/collects/tests/typed-scheme/fail/back-and-forth.ss
index e8548984a9..f8c0093079 100644
--- a/collects/tests/typed-scheme/fail/back-and-forth.ss
+++ b/collects/tests/typed-scheme/fail/back-and-forth.ss
@@ -1,5 +1,5 @@
 #;
-(exn-pred exn:fail:contract? #rx".*contract \\(-> number\\? number\\?\\).*")
+(exn-pred exn:fail:contract? #rx".*contract.*\\(-> number\\? number\\?\\).*")
 
 #lang scheme/load
 
diff --git a/collects/tests/typed-scheme/fail/cnt-err1.ss b/collects/tests/typed-scheme/fail/cnt-err1.ss
index 40c3ca3bd8..71bf76eda9 100644
--- a/collects/tests/typed-scheme/fail/cnt-err1.ss
+++ b/collects/tests/typed-scheme/fail/cnt-err1.ss
@@ -1,5 +1,5 @@
 #;
-(exn-pred exn:fail:contract? ".*expected <T.*" #rx".*contract \\(->.*")
+(exn-pred exn:fail:contract? ".*expected <T.*" #rx".*contract.*\\(->.*")
 
 #lang scheme/load