mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-23 12:00:21 +02:00
Code Activity

Reverted changed from 2005/01/24 19:14:54, which was a commit to the

Browse source 
wrong branch.  Sorry.
This commit is contained in:
Marius Vollmer 2005-01-24 23:41:14 +00:00
parent a54a94b397
commit 76da80e788
34 changed files with 1125 additions and 1296 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/root.c
View file

@ -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 ()
{