updated for version 7.2-247
diff --git a/src/if_mzsch.c b/src/if_mzsch.c
index bc3dd6b..d2d9617 100644
--- a/src/if_mzsch.c
+++ b/src/if_mzsch.c
@@ -635,8 +635,10 @@
#endif /* DYNAMIC_MZSCHEME */
/* need to put it here for dynamic stuff to work */
-#ifdef INCLUDE_MZSCHEME_BASE
+#if defined(INCLUDE_MZSCHEME_BASE)
# include "mzscheme_base.c"
+#elif MZSCHEME_VERSION_MAJOR >= 400
+# error MzScheme 4.x must include mzscheme_base.c, for MinGW32 you need to define MZSCHEME_GENERATE_BASE=yes
#endif
/*
@@ -875,14 +877,14 @@
#ifdef INCLUDE_MZSCHEME_BASE
{
/*
- * versions 4.x do not provide Scheme bindings by defaults
+ * versions 4.x do not provide Scheme bindings by default
* we need to add them explicitly
*/
Scheme_Object *scheme_base_symbol = NULL;
MZ_GC_DECL_REG(1);
MZ_GC_VAR_IN_REG(0, scheme_base_symbol);
MZ_GC_REG();
- /* invoke function from generated and included base.c */
+ /* invoke function from generated and included mzscheme_base.c */
declare_modules(environment);
scheme_base_symbol = scheme_intern_symbol("scheme/base");
MZ_GC_CHECK();
diff --git a/src/version.c b/src/version.c
index a6d9591..767152e 100644
--- a/src/version.c
+++ b/src/version.c
@@ -677,6 +677,8 @@
static int included_patches[] =
{ /* Add new patch number below this line */
/**/
+ 247,
+/**/
246,
/**/
245,
