1 files changed, 6 insertions, 11 deletions
diff --git a/Lib/mzscheme/mzscheme.swg b/Lib/mzscheme/mzscheme.swg
index ba3ff9812..4748577b3 100644
--- a/Lib/mzscheme/mzscheme.swg
+++ b/Lib/mzscheme/mzscheme.swg
@@ -4,7 +4,6 @@
 
 /* Include headers */
 %runtime "swigrun.swg"     // Common C API type-checking code
-%runtime "common.swg"
 %runtime "mzrun.swg"
 
 %define SWIG_APPEND_VALUE(value)
@@ -22,15 +21,11 @@
 /* Read in standard typemaps. */
 %include "typemaps.i"
 
+%insert(init) "swiginit.swg"
+
 %init %{
-  static int _swig_init = 0;
-
-  if (!_swig_init) {
-    int i;
-    SWIG_MzScheme_LookupTypePointer(env);
-    for (i = 0; swig_types_initial[i]; i++) {
-      swig_types[i] = SWIG_TypeRegister(swig_types_initial[i]);
-    }
-    _swig_init = 1;
-  }
+Scheme_Object *scheme_reload(Scheme_Env *env) {
+  Scheme_Env *menv = SWIG_MZSCHEME_CREATE_MENV(env);
+
+  SWIG_InitializeModule((void *) env);
 %}