From eaa7303113cadb8d02bc3ee2f6512263b71002fc Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Thu, 1 Apr 2010 02:01:05 +0000 Subject: [PATCH] the proper fix svn: r18703 --- collects/2htdp/tests/clause-once.ss | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/2htdp/tests/clause-once.ss b/collects/2htdp/tests/clause-once.ss index 95d3bd8c94..70482fecbd 100644 --- a/collects/2htdp/tests/clause-once.ss +++ b/collects/2htdp/tests/clause-once.ss @@ -4,10 +4,12 @@ ;; (why am I running this in scheme/load for the namespace in eval) +(error-print-source-location #f) + (with-handlers ((exn:fail:syntax? (lambda (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) (raise e))))) (eval '(module a scheme @@ -27,7 +29,7 @@ (with-handlers ((exn:fail:syntax? (lambda (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))))) (eval '(module a scheme (require 2htdp/universe)