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

the proper fix

Browse Source 
svn: r18703
This commit is contained in:
Matthias Felleisen 2010-04-01 02:01:05 +00:00
parent 7a4cd2a706
commit eaa7303113
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4,10 +4,12 @@
;; (why am I running this in scheme/load for the namespace in eval) ;; (why am I running this in scheme/load for the namespace in eval)
(error-print-source-location #f)
(with-handlers ((exn:fail:syntax? (with-handlers ((exn:fail:syntax?
(lambda (e) (lambda (e)
(define msg (exn-message e)) (define msg (exn-message e))
(define ext "big-bang: duplicate on-draw clause in: (on-draw render2 400 200)") (define ext "big-bang: duplicate on-draw clause") ; " in: (on-draw render2 400 200)")
(unless (string=? msg ext) (unless (string=? msg ext)
(raise e))))) (raise e)))))
(eval '(module a scheme (eval '(module a scheme
@ -27,7 +29,7 @@
(with-handlers ((exn:fail:syntax? (with-handlers ((exn:fail:syntax?
(lambda (e) (lambda (e)
(define msg (exn-message e)) (define msg (exn-message e))
(unless (string=? msg "universe: duplicate on-tick clause in: (on-tick sub1)") (unless (string=? msg "universe: duplicate on-tick clause"); " in: (on-tick sub1)")
(raise e))))) (raise e)))))
(eval '(module a scheme (eval '(module a scheme
(require 2htdp/universe) (require 2htdp/universe)