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

fix test case affected by change to scheme/base module-begin expansion

Browse Source 
svn: r8896
This commit is contained in:
Matthew Flatt 2008-03-05 13:23:36 +00:00
parent e0319c7fed
commit d4ea11b325
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/mzscheme/stx.ss
View File

@ -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)]))])