summaryrefslogtreecommitdiff
path: root/libguile/root.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2005-01-24 23:41:14 +0000
committerMarius Vollmer <mvo@zagadka.de>2005-01-24 23:41:14 +0000
commit76da80e7881947ebcdb647e5ce4be029fece29f2 (patch)
tree9a56249fecf0002eefc25c6a0bfeb53a2b277d7f /libguile/root.c
parenta54a94b39707f47a1f30533bcf7664094d65d073 (diff)
downloadguile-76da80e7881947ebcdb647e5ce4be029fece29f2.tar.gz
Reverted changed from 2005/01/24 19:14:54, which was a commit to the
wrong branch. Sorry.
Diffstat (limited to 'libguile/root.c')
-rw-r--r--libguile/root.c6
1 files changed, 2 insertions, 4 deletions
diff --git a/libguile/root.c b/libguile/root.c
index 09ec7c049..dfe0ae313 100644
--- a/libguile/root.c
+++ b/libguile/root.c
@@ -46,6 +46,7 @@ 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);
@@ -90,6 +91,7 @@ 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
@@ -344,10 +346,6 @@ 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 ()
{