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

catching up with a change to collects/htdp/error.ss

Browse Source 
svn: r15525
This commit is contained in:
Robby Findler 2009-07-22 04:06:56 +00:00
parent 0c251a80de
commit 305e3fc5df
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/mzscheme/htdp-image.ss
View File

@ -1232,7 +1232,7 @@
(define (tp-exn/num re)
(lambda (exn)
(and (tp-exn? exn)
(and (exn:fail? exn)
(regexp-match re (exn-message exn)))))
;; tests that the expression
@ -1246,7 +1246,7 @@
(syntax
(err/rt-test (name . args)
(lambda (exn)
(and (tp-exn? exn)
(and (exn:fail? exn)
(let* ([msg (exn-message exn)]
[beg (format "~a:" 'name)]
[len (string-length beg)])