From ce6c12daf8340f16d6bf9f846f220749e680edab Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 28 Sep 2009 15:22:46 +0000 Subject: [PATCH] fix bug when JIT is dynamically disabled svn: r16144 --- src/mzscheme/src/jit.c | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/src/mzscheme/src/jit.c b/src/mzscheme/src/jit.c index 4044bba1a5..504de5ed0e 100644 --- a/src/mzscheme/src/jit.c +++ b/src/mzscheme/src/jit.c @@ -9665,13 +9665,19 @@ typedef void *(*Module_Start_Proc)(struct Start_Module_Args *a, Scheme_Object ** void *scheme_module_run_start(Scheme_Env *menv, Scheme_Env *env, Scheme_Object *name) { Module_Run_Proc proc = (Module_Run_Proc)module_run_start_code; - return proc(menv, env, &name); + if (proc) + return proc(menv, env, &name); + else + return scheme_module_run_finish(menv, env); } void *scheme_module_start_start(struct Start_Module_Args *a, Scheme_Object *name) { Module_Start_Proc proc = (Module_Start_Proc)module_start_start_code; - return proc(a, &name); + if (proc) + return proc(a, &name); + else + return scheme_module_start_finish(a); } /**********************************************************************/