From a1c5bf9c4c1b86b9b3209d9d7297b7a7722f9cfb Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 22 Nov 2005 02:30:14 +0000
Subject: [PATCH] fixed compile-phase cert problem

svn: r1365
---
 src/mzscheme/src/module.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/mzscheme/src/module.c b/src/mzscheme/src/module.c
index 67f56d7807..14e99e894f 100644
--- a/src/mzscheme/src/module.c
+++ b/src/mzscheme/src/module.c
@@ -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