fixed compile-phase cert problem

svn: r1365
This commit is contained in:
Matthew Flatt 2005-11-22 02:30:14 +00:00
parent 3a683b93d0
commit a1c5bf9c4c

View File

@ -1980,9 +1980,9 @@ Scheme_Object *scheme_check_accessible_in_module(Scheme_Env *env, Scheme_Object
if ((env == scheme_initial_env)
|| (env->module->primitive)
/* For now, we're pretending that all definitions exists for
local phase 1 and up. */
|| env->mod_phase) {
/* For now[?], we're pretending that all definitions exists for
non-0 local phase. */
|| (env->mod_phase != env->phase)) {
if (want_pos)
return scheme_make_integer(-1);
else