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

fix initialization of local

Browse Source
This commit is contained in:
Matthew Flatt 2012-11-02 13:01:37 -06:00
parent 3fd5b5eb6e
commit 1f0508d77e
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/racket/src/eval.c
View File

@ -919,6 +919,7 @@ static Scheme_Object *link_toplevel(Scheme_Object **exprs, int which, Scheme_Env
modname = env->module->modname;
mod_phase = env->mod_phase;
}
shape = NULL;
} else if (SCHEME_PAIRP(expr)) {
varname = SCHEME_CAR(expr);
modname = SCHEME_CDR(expr);
@ -926,6 +927,7 @@ static Scheme_Object *link_toplevel(Scheme_Object **exprs, int which, Scheme_Env
mod_phase = SCHEME_INT_VAL(SCHEME_CDR(modname));
modname = SCHEME_CAR(modname);
}
shape = NULL;
} else {
modname = SCHEME_VEC_ELS(expr)[0];
varname = SCHEME_VEC_ELS(expr)[1];