fix problem in module->namespace related to renamed exports

svn: r15365
This commit is contained in:
Matthew Flatt 2009-07-02 22:29:15 +00:00
parent 8fbc4f86aa
commit 1c49a8c6ff

View File

@ -2360,7 +2360,7 @@ void scheme_prep_namespace_rename(Scheme_Env *menv)
/* Local, provided: */
for (i = 0; i < m->me->rt->num_provides; i++) {
if (SCHEME_FALSEP(m->me->rt->provide_srcs[i])) {
name = m->me->rt->provides[i];
name = m->me->rt->provide_src_names[i];
scheme_extend_module_rename(one_rn, m->self_modidx, name, name, m->self_modidx, name, 0,
scheme_make_integer(0), NULL, NULL, 0);
}