remove scheme_require_from_original_env from linking table

svn: r11431
This commit is contained in:
Matthew Flatt 2008-08-26 10:41:47 +00:00
parent e0658b6e27
commit 553e068ccf
9 changed files with 1 additions and 10 deletions

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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)

View File

@ -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);

View File

@ -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);

View File

@ -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;

View File

@ -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)