Make contract error regexps more flexible.
svn: r11855
This commit is contained in:
parent
ea52bc06ad
commit
89171c0329
|
@ -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