From 181f1cd7d0b9f6ab3035f615142dabf6f63d0583 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 9 Mar 2009 21:09:22 +0100 Subject: [PATCH] allow eval to be called before modules are booted * libguile/eval.c (scm_eval): If the module system isn't booted, assert not on the module argument. --- libguile/eval.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/libguile/eval.c b/libguile/eval.c index 4c79b166c..19ac0b155 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -4109,11 +4109,12 @@ SCM_DEFINE (scm_eval, "eval", 2, 0, 0, scm_dynwind_begin (SCM_F_DYNWIND_REWINDABLE); if (scm_is_dynamic_state (module_or_state)) scm_dynwind_current_dynamic_state (module_or_state); - else + else if (scm_module_system_booted_p) { SCM_VALIDATE_MODULE (2, module_or_state); scm_dynwind_current_module (module_or_state); } + /* otherwise if the module system isn't booted, ignore the module arg */ res = scm_primitive_eval (exp);