From 238d517c09f3cc4120568f6fb980fbd9fa88ab77 Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Fri, 11 Aug 2000 08:43:08 +0000
Subject: [PATCH] * evalext.c (scm_definedp): Have to work before module system
 is booted.

---
 libguile/evalext.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/libguile/evalext.c b/libguile/evalext.c
index 843897c57..f358bca99 100644
--- a/libguile/evalext.c
+++ b/libguile/evalext.c
@@ -79,7 +79,9 @@ SCM_DEFINE (scm_definedp, "defined?", 1, 1, 0,
 
   if (SCM_UNBNDP (env))
     vcell = scm_sym2vcell(sym,
-			  SCM_TOP_LEVEL_LOOKUP_CLOSURE,
+			  scm_module_system_booted_p
+			  ? SCM_TOP_LEVEL_LOOKUP_CLOSURE
+			  : SCM_EOL,
 			  SCM_BOOL_F);
   else
     {