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

fix bug in checking for #%plain-module-begin

Browse Source 
svn: r3700
This commit is contained in:
Matthew Flatt 2006-07-13 15:28:39 +00:00
parent 668e510bbb
commit 454a6fa619
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mzscheme/src/module.c
View File

@ -3453,7 +3453,7 @@ static Scheme_Object *do_module(Scheme_Object *form, Scheme_Comp_Env *env,
/* If fm isn't a single expression, it certainly needs a
`#%module-begin': */
if (SCHEME_PAIRP(fm) && SCHEME_STX_NULLP(SCHEME_STX_CDR(fm))) {
if (SCHEME_STX_PAIRP(fm) && SCHEME_STX_NULLP(SCHEME_STX_CDR(fm))) {
/* Perhaps expandable... */
fm = SCHEME_STX_CAR(fm);
} else {