From 46b61873aa30e2df022429a182a5ad2002d3914f Mon Sep 17 00:00:00 2001 From: Kevin Tew Date: Fri, 5 Feb 2010 17:06:05 +0000 Subject: [PATCH] Move lazy global initialization to init_fun svn: r17994 --- src/mzscheme/src/fun.c | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/src/mzscheme/src/fun.c b/src/mzscheme/src/fun.c index 86e35a220a..782c5c4b44 100644 --- a/src/mzscheme/src/fun.c +++ b/src/mzscheme/src/fun.c @@ -548,9 +548,11 @@ scheme_init_fun (Scheme_Env *env) REGISTER_SO(is_method_symbol); REGISTER_SO(scheme_inferred_name_symbol); REGISTER_SO(cont_key); + REGISTER_SO(barrier_prompt_key); is_method_symbol = scheme_intern_symbol("method-arity-error"); scheme_inferred_name_symbol = scheme_intern_symbol("inferred-name"); cont_key = scheme_make_symbol("k"); /* uninterned */ + barrier_prompt_key = scheme_make_symbol("bar"); /* uninterned */ 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) { 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