fixed compile-phase cert problem
svn: r1365
This commit is contained in:
parent
3a683b93d0
commit
a1c5bf9c4c
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user