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

Move lazy global initialization to init_fun

Browse Source 
svn: r17994
This commit is contained in:
Kevin Tew 2010-02-05 17:06:05 +00:00
parent 44445c3210
commit 46b61873aa
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/mzscheme/src/fun.c
View File

@ -548,9 +548,11 @@ scheme_init_fun (Scheme_Env *env)
REGISTER_SO(is_method_symbol); REGISTER_SO(is_method_symbol);
REGISTER_SO(scheme_inferred_name_symbol); REGISTER_SO(scheme_inferred_name_symbol);
REGISTER_SO(cont_key); REGISTER_SO(cont_key);
REGISTER_SO(barrier_prompt_key);
is_method_symbol = scheme_intern_symbol("method-arity-error"); is_method_symbol = scheme_intern_symbol("method-arity-error");
scheme_inferred_name_symbol = scheme_intern_symbol("inferred-name"); scheme_inferred_name_symbol = scheme_intern_symbol("inferred-name");
cont_key = scheme_make_symbol("k"); /* uninterned */ cont_key = scheme_make_symbol("k"); /* uninterned */
barrier_prompt_key = scheme_make_symbol("bar"); /* uninterned */
REGISTER_SO(scheme_default_prompt_tag); REGISTER_SO(scheme_default_prompt_tag);
{ {
@ -2150,11 +2152,6 @@ void *scheme_top_level_do_worker(void *(*k)(void), int eb, int new_thread, Schem
if (!new_thread) { if (!new_thread) {
prompt->is_barrier = 1; prompt->is_barrier = 1;
} }
if (!barrier_prompt_key) {
REGISTER_SO(barrier_prompt_key);
barrier_prompt_key = scheme_make_symbol("bar"); /* uninterned */
}
} }
#ifdef MZ_PRECISE_GC #ifdef MZ_PRECISE_GC