From a54a94b39707f47a1f30533bcf7664094d65d073 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Mon, 24 Jan 2005 19:14:54 +0000 Subject: Threading changes. --- libguile/root.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'libguile/root.c') diff --git a/libguile/root.c b/libguile/root.c index dfe0ae313..09ec7c049 100644 --- a/libguile/root.c +++ b/libguile/root.c @@ -46,7 +46,6 @@ root_mark (SCM root) scm_gc_mark (s->rootcont); scm_gc_mark (s->dynwinds); scm_gc_mark (s->progargs); - scm_gc_mark (s->exitval); scm_gc_mark (s->cur_inp); scm_gc_mark (s->cur_outp); scm_gc_mark (s->cur_errp); @@ -91,7 +90,6 @@ scm_make_root (SCM parent) root_state->rootcont = root_state->dynwinds = root_state->progargs - = root_state->exitval = root_state->cur_inp = root_state->cur_outp = root_state->cur_errp @@ -346,6 +344,10 @@ scm_apply_with_dynamic_root (SCM proc, SCM a1, SCM args, SCM handler) +/* Initialized in scm_threads_prehistory. + */ +pthread_key_t scm_i_root_key; + void scm_init_root () { -- cgit v1.2.3