Make contract error regexps more flexible.

svn: r11855

original commit: 89171c03294a0418fd3009bdd181792568626f04
This commit is contained in:
Sam Tobin-Hochstadt 2008-09-24 19:55:29 +00:00
parent f98a4bc210
commit 37649236b9
2 changed files with 2 additions and 2 deletions

View File

@ -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

View File

@ -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