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

src loc for undefined provided names

Browse Source 
svn: r4943
This commit is contained in:
Matthew Flatt 2006-11-26 00:45:16 +00:00
parent ef5f1e26c1
commit 20ce8f7e61
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4991,11 +4991,9 @@ static Scheme_Object *do_module_begin(Scheme_Object *form, Scheme_Comp_Env *env,
name = SCHEME_CAR(v);
protected = SCHEME_TRUEP(SCHEME_CDR(v));
if (SCHEME_STXP(name)) {
prnt_name = SCHEME_STX_VAL(name);
prnt_name = name;
if (SCHEME_STXP(name))
name = scheme_tl_id_sym(env->genv, name, NULL, 0);
} else
prnt_name = name;
if (scheme_lookup_in_table(env->genv->toplevel, (const char *)name)) {
/* Defined locally */