From d4ea11b325e0e38acd952af2421c1a0d5186c06a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 5 Mar 2008 13:23:36 +0000 Subject: [PATCH] fix test case affected by change to scheme/base module-begin expansion svn: r8896 --- collects/tests/mzscheme/stx.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/mzscheme/stx.ss b/collects/tests/mzscheme/stx.ss index a4682cde47..480964ce07 100644 --- a/collects/tests/mzscheme/stx.ss +++ b/collects/tests/mzscheme/stx.ss @@ -454,7 +454,7 @@ (let ([b (identifier-binding (syntax-case (expand #'(module m scheme/base (require (only-in (lib "lang/htdp-intermediate.ss") [cons bcons])) bcons)) () - [(mod m mz (#%mod-beg req (app call-with-values (lambda () cons) print) void)) + [(mod m mz (#%mod-beg req _void (app call-with-values (lambda () cons) print) void)) (let ([s (syntax cons)]) (test 'bcons syntax-e s) s)]))])