From 2ba910ef234d79fde9ae9c3e3824dc64b8930cc4 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 12 Mar 2012 07:43:56 -0600
Subject: [PATCH] avoid compiler warning

---
 src/racket/src/module.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/racket/src/module.c b/src/racket/src/module.c
index 8ec1a83bfa..f2fb3d5bd4 100644
--- a/src/racket/src/module.c
+++ b/src/racket/src/module.c
@@ -6540,7 +6540,8 @@ static Scheme_Object *do_module(Scheme_Object *form, Scheme_Comp_Env *env,
   if (iidx) {
     iim = module_load(_module_resolve(iidx, m->ii_src, NULL, 1), menv, NULL); 
     start_module(iim, find_env(menv, SCHEME_INT_VAL(super_phase_shift)), 0, iidx, 1, 0, menv->phase, scheme_null, 0);
-  }
+  } else
+    iim = NULL;
 
   m->requires = scheme_null;
   m->et_requires = scheme_null;