suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix logger registration after scheme_basic_env reset

Browse Source 
svn: r11568
This commit is contained in:
Matthew Flatt 2008-09-07 13:11:29 +00:00
parent 2ece9d9e95
commit 6a174fa7c9
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/mzscheme/src/error.c
View File

@ -45,6 +45,7 @@ Scheme_Exit_Proc scheme_exit;
void scheme_set_exit(Scheme_Exit_Proc p) { scheme_exit = p; }
Scheme_Logger *scheme_main_logger;
static void init_logger_config();
#ifdef MEMORY_COUNTING_ON
long scheme_misc_count;
@ -669,8 +670,8 @@ void scheme_init_error(Scheme_Env *env)
scheme_main_logger = make_a_logger(NULL, NULL);
scheme_main_logger->syslog_level = init_syslog_level;
scheme_main_logger->stderr_level = init_stderr_level;
scheme_set_root_param(MZCONFIG_LOGGER, (Scheme_Object *)scheme_main_logger);
}
init_logger_config();
REGISTER_SO(arity_property);
{
@ -687,8 +688,15 @@ void scheme_init_error(Scheme_Env *env)
scheme_init_error_config();
}
static void init_logger_config()
{
scheme_set_root_param(MZCONFIG_LOGGER, (Scheme_Object *)scheme_main_logger);
}
void scheme_init_error_config(void)
{
init_logger_config();
scheme_set_root_param(MZCONFIG_EXIT_HANDLER, scheme_def_exit_proc);
REGISTER_SO(default_display_handler);