suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

..

Browse Source 
original commit: 85f2edea57ebd37afc45c8cc700988a089212bea
This commit is contained in:
Robby Findler 2002-08-27 03:42:20 +00:00
parent 3dce14aa40
commit c57f3501b3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/mzscheme/contracts.ss
View File

@ -17,7 +17,7 @@
(define (test/spec-failed name expression blame) (define (test/spec-failed name expression blame)
(define (failed-contract x) (define (failed-contract x)
(and (string? x) (and (string? x)
(let ([m (regexp-match ": (.*) failed contract:" x)]) (let ([m (regexp-match ": ([^ ]*) broke" x)])
(and m (cadr m))))) (and m (cadr m)))))
(test blame (test blame
failed-contract failed-contract