diff --git a/src/mzscheme/include/mzscheme.exp b/src/mzscheme/include/mzscheme.exp index afa793c9ed..668e122774 100644 --- a/src/mzscheme/include/mzscheme.exp +++ b/src/mzscheme/include/mzscheme.exp @@ -463,7 +463,6 @@ scheme_print_string scheme_read_byte_string scheme_make_namespace scheme_add_namespace_option -scheme_require_from_original_env scheme_add_global scheme_add_global_symbol scheme_make_envunbox diff --git a/src/mzscheme/include/mzscheme3m.exp b/src/mzscheme/include/mzscheme3m.exp index 6f9675d73d..84941c25c2 100644 --- a/src/mzscheme/include/mzscheme3m.exp +++ b/src/mzscheme/include/mzscheme3m.exp @@ -473,7 +473,6 @@ scheme_print_string scheme_read_byte_string scheme_make_namespace scheme_add_namespace_option -scheme_require_from_original_env scheme_add_global scheme_add_global_symbol scheme_make_envunbox diff --git a/src/mzscheme/include/mzwin.def b/src/mzscheme/include/mzwin.def index 9a92ba439e..bdd51b4f60 100644 --- a/src/mzscheme/include/mzwin.def +++ b/src/mzscheme/include/mzwin.def @@ -451,7 +451,6 @@ EXPORTS scheme_read_byte_string scheme_make_namespace scheme_add_namespace_option - scheme_require_from_original_env scheme_add_global scheme_add_global_symbol scheme_make_envunbox diff --git a/src/mzscheme/include/mzwin3m.def b/src/mzscheme/include/mzwin3m.def index 26e1b77970..19fe2ba515 100644 --- a/src/mzscheme/include/mzwin3m.def +++ b/src/mzscheme/include/mzwin3m.def @@ -465,7 +465,6 @@ EXPORTS scheme_read_byte_string scheme_make_namespace scheme_add_namespace_option - scheme_require_from_original_env scheme_add_global scheme_add_global_symbol scheme_make_envunbox diff --git a/src/mzscheme/src/regexp.c b/src/mzscheme/src/regexp.c index 7a69c997aa..fee4a1d00a 100644 --- a/src/mzscheme/src/regexp.c +++ b/src/mzscheme/src/regexp.c @@ -5069,7 +5069,7 @@ static Scheme_Object *gen_compare(char *name, int pos, startp_buffer = NULL; } else { startp = MALLOC_N_ATOMIC(rxpos, r->nsubexp); - maybep = NULL; + maybep = NULL; endp = MALLOC_N_ATOMIC(rxpos, r->nsubexp); } if ((r->nsubexp > 1) && !maybep) diff --git a/src/mzscheme/src/schemef.h b/src/mzscheme/src/schemef.h index d9db328df1..6aee13eafd 100644 --- a/src/mzscheme/src/schemef.h +++ b/src/mzscheme/src/schemef.h @@ -890,8 +890,6 @@ MZ_EXTERN Scheme_Object *scheme_read_byte_string(Scheme_Object *port); MZ_EXTERN Scheme_Object *scheme_make_namespace(int argc, Scheme_Object *argv[]); MZ_EXTERN void scheme_add_namespace_option(Scheme_Object *key, void (*f)(Scheme_Env *)); -MZ_EXTERN void scheme_require_from_original_env(Scheme_Env *env, int syntax_only); - MZ_EXTERN void scheme_add_global(const char *name, Scheme_Object *val, Scheme_Env *env); MZ_EXTERN void scheme_add_global_symbol(Scheme_Object *name, Scheme_Object *val, Scheme_Env *env); diff --git a/src/mzscheme/src/schemex.h b/src/mzscheme/src/schemex.h index f278b6ba53..55239e85ef 100644 --- a/src/mzscheme/src/schemex.h +++ b/src/mzscheme/src/schemex.h @@ -745,7 +745,6 @@ Scheme_Object *(*scheme_read_byte_string)(Scheme_Object *port); /*========================================================================*/ Scheme_Object *(*scheme_make_namespace)(int argc, Scheme_Object *argv[]); void (*scheme_add_namespace_option)(Scheme_Object *key, void (*f)(Scheme_Env *)); -void (*scheme_require_from_original_env)(Scheme_Env *env, int syntax_only); void (*scheme_add_global)(const char *name, Scheme_Object *val, Scheme_Env *env); void (*scheme_add_global_symbol)(Scheme_Object *name, Scheme_Object *val, Scheme_Env *env); diff --git a/src/mzscheme/src/schemex.inc b/src/mzscheme/src/schemex.inc index 53e0c90c88..d9cc68f466 100644 --- a/src/mzscheme/src/schemex.inc +++ b/src/mzscheme/src/schemex.inc @@ -515,7 +515,6 @@ scheme_extension_table->scheme_read_byte_string = scheme_read_byte_string; scheme_extension_table->scheme_make_namespace = scheme_make_namespace; scheme_extension_table->scheme_add_namespace_option = scheme_add_namespace_option; - scheme_extension_table->scheme_require_from_original_env = scheme_require_from_original_env; scheme_extension_table->scheme_add_global = scheme_add_global; scheme_extension_table->scheme_add_global_symbol = scheme_add_global_symbol; scheme_extension_table->scheme_make_envunbox = scheme_make_envunbox; diff --git a/src/mzscheme/src/schemexm.h b/src/mzscheme/src/schemexm.h index 3a6577c66f..4ac0a90b91 100644 --- a/src/mzscheme/src/schemexm.h +++ b/src/mzscheme/src/schemexm.h @@ -515,7 +515,6 @@ #define scheme_read_byte_string (scheme_extension_table->scheme_read_byte_string) #define scheme_make_namespace (scheme_extension_table->scheme_make_namespace) #define scheme_add_namespace_option (scheme_extension_table->scheme_add_namespace_option) -#define scheme_require_from_original_env (scheme_extension_table->scheme_require_from_original_env) #define scheme_add_global (scheme_extension_table->scheme_add_global) #define scheme_add_global_symbol (scheme_extension_table->scheme_add_global_symbol) #define scheme_make_envunbox (scheme_extension_table->scheme_make_envunbox)