From 7a4cd2a70616d51f0b428888245f790ff6566dc6 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Thu, 1 Apr 2010 00:57:36 +0000 Subject: [PATCH] appeasing drdr svn: r18702 --- collects/2htdp/tests/clause-once.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/2htdp/tests/clause-once.ss b/collects/2htdp/tests/clause-once.ss index 0d81a26068..95d3bd8c94 100644 --- a/collects/2htdp/tests/clause-once.ss +++ b/collects/2htdp/tests/clause-once.ss @@ -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)