Make contract error regexps more flexible.
svn: r11855 original commit: 89171c03294a0418fd3009bdd181792568626f04
This commit is contained in:
parent
f98a4bc210
commit
37649236b9
|
@ -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
|
||||
|
||||
|
|
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user