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

fix test that looks at expension of a module

Browse Source 
svn: r9451
This commit is contained in:
Matthew Flatt 2008-04-24 12:06:19 +00:00
parent f01241531b
commit d09b8c5a78
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 _void (app call-with-values (lambda () cons) print) void))
[(mod m mz (#%mod-beg req (app call-with-values (lambda () cons) print)))
(let ([s (syntax cons)])
(test 'bcons syntax-e s)
s)]))])