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

fix bug in looking for free-id=? re-exports

Browse Source 
svn: r14476
This commit is contained in:
Matthew Flatt 2009-04-09 13:05:54 +00:00
parent 49852a87fc
commit 71d28de3a0
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

@ -7308,7 +7308,7 @@ static Scheme_Object *extract_free_id_name(Scheme_Object *name,
_implicit_nominal_mod, _implicit_nominal_name,
_implicit_mod_phase,
NULL, NULL, NULL, NULL);
if (SAME_TYPE(SCHEME_TYPE(mod), scheme_module_index_type)) {
if (mod && SAME_TYPE(SCHEME_TYPE(mod), scheme_module_index_type)) {
if (SCHEME_FALSEP(((Scheme_Modidx *)mod)->path)) {
/* keep looking locally */
name = name2;