fix related to module name resolver change

(cherry picked from commit 9413b30599)
This commit is contained in:
Matthew Flatt 2012-07-19 07:46:34 -05:00 committed by Ryan Culpepper
parent 8c010ee190
commit 5bd2ce24d9

View File

@ -6240,7 +6240,7 @@ static Scheme_Object *do_module_execute(Scheme_Object *data, Scheme_Env *genv,
}
if (!set_in_pre) {
Scheme_Object *resolver, *a[1];
Scheme_Object *resolver, *a[2];
resolver = scheme_get_param(config, MZCONFIG_CURRENT_MODULE_RESOLVER);
a[0] = m->modname;
a[1] = scheme_false;