From aa3f0b2b308038dc4ee09525749a8049cd89f2cc Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Matthias=20K=C3=B6ppe?= Date: Fri, 13 Feb 2004 16:03:24 +0000 Subject: [PATCH] Don't produce invalid C code when invoked with the -declaremodule option. Reported by Tim Brown, SF #891108. git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5723 626c5289-ae23-0410-ae9c-e8d60b6d4f22 --- SWIG/Source/Modules/mzscheme.cxx | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/SWIG/Source/Modules/mzscheme.cxx b/SWIG/Source/Modules/mzscheme.cxx index 8a00e7a57..b61ed48a1 100644 --- a/SWIG/Source/Modules/mzscheme.cxx +++ b/SWIG/Source/Modules/mzscheme.cxx @@ -157,10 +157,12 @@ public: SwigType_emit_type_table (f_runtime, f_wrappers); if (!noinit) { Printf(f_init, "Scheme_Object *scheme_reload(Scheme_Env *env) {\n"); - Printf(f_init, "\tScheme_Env *menv = env;\n"); - if (declaremodule) { - Printf(f_init, "\tmenv = scheme_primitive_module(scheme_intern_symbol(\"%s\"), env);\n", module); - } + if (declaremodule) { + Printf(f_init, "\tScheme_Env *menv = scheme_primitive_module(scheme_intern_symbol(\"%s\"), env);\n", module); + } + else { + Printf(f_init, "\tScheme_Env *menv = env;\n"); + } Printf(f_init, "%s\n", Char(init_func_def)); if (declaremodule) { Printf(f_init, "\tscheme_finish_primitive_module(menv);\n");