From f5addba2dfda91369cdba15461795cc04b4bbb44 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 1 Nov 2005 20:25:34 +0000 Subject: [PATCH] fixed one HtDP test svn: r1202 --- collects/tests/mzscheme/beg-adv.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/mzscheme/beg-adv.ss b/collects/tests/mzscheme/beg-adv.ss index c9894f3a03..29bb105d8e 100644 --- a/collects/tests/mzscheme/beg-adv.ss +++ b/collects/tests/mzscheme/beg-adv.ss @@ -201,6 +201,6 @@ (htdp-syntax-test #'(my-y 17) #rx"not defined, not an argument, and not a primitive name") (htdp-syntax-test #'(cond [true my-y 17]) #rx"not defined, not an argument, and not a primitive name") (htdp-syntax-test #'(define my-f 12) #rx"cannot be re-defined") -(htdp-syntax-test #'(define my-x 12) #rx"cannot be re-defined") +(htdp-syntax-test #'(define (my-x h) 12) #rx"cannot be re-defined") (htdp-top-pop 1) (htdp-top-pop 1)