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

appeasing drdr

Browse Source 
svn: r18702
This commit is contained in:
Matthias Felleisen 2010-04-01 00:57:36 +00:00
parent 3f20bc5eb6
commit 7a4cd2a706
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/2htdp/tests/clause-once.ss
View File

@ -7,7 +7,8 @@
(with-handlers ((exn:fail:syntax?
(lambda (e)
(define msg (exn-message e))
(unless (string=? msg "big-bang: duplicate on-draw clause")
(define ext "big-bang: duplicate on-draw clause in: (on-draw render2 400 200)")
(unless (string=? msg ext)
(raise e)))))
(eval '(module a scheme
(require 2htdp/universe)
@ -26,7 +27,7 @@
(with-handlers ((exn:fail:syntax?
(lambda (e)
(define msg (exn-message e))
(unless (string=? msg "universe: duplicate on-tick clause")
(unless (string=? msg "universe: duplicate on-tick clause in: (on-tick sub1)")
(raise e)))))
(eval '(module a scheme
(require 2htdp/universe)