From e484c94514acda8bb0a08a30ee0b20b95992da7b Mon Sep 17 00:00:00 2001 From: Bram Moolenaar Date: Fri, 11 Sep 2009 10:21:41 +0000 Subject: [PATCH] updated for version 7.2-247 --- src/if_mzsch.c | 8 +++++--- src/version.c | 2 ++ 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/src/if_mzsch.c b/src/if_mzsch.c index bc3dd6bf5..d2d9617a7 100644 --- a/src/if_mzsch.c +++ b/src/if_mzsch.c @@ -635,8 +635,10 @@ dynamic_mzscheme_end(void) #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 @@ startup_mzscheme(void) #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 a6d959115..767152e50 100644 --- a/src/version.c +++ b/src/version.c @@ -676,6 +676,8 @@ static char *(features[]) = static int included_patches[] = { /* Add new patch number below this line */ +/**/ + 247, /**/ 246, /**/ -- 2.50.1