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

fix bug with import to a gensymed local name

Browse Source 
svn: r14674
This commit is contained in:
Matthew Flatt 2009-05-01 12:15:36 +00:00
parent 528d032a37
commit 64a2cafa17
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8449,10 +8449,7 @@ void add_single_require(Scheme_Module_Exports *me, /* from module */
? scheme_modidx_shift(exss[j], me->src_modidx, idx)
: idx);
if (!iname)
iname = exs[j];
if (SCHEME_SYM_WEIRDP(iname)) {
if (SCHEME_SYM_WEIRDP(exs[j])) {
/* This shouldn't happen. In case it does, don't import a
gensym or parallel symbol. The former is useless. The
latter is supposed to be module-specific, and it could
@ -8461,6 +8458,9 @@ void add_single_require(Scheme_Module_Exports *me, /* from module */
continue;
}
if (!iname)
iname = exs[j];
if (prefix)
iname = scheme_symbol_append(prefix, iname);