mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

* root.c: Include "fluids.h". (scm_mark_root): Mark "fluids".

Browse source 
(scm_make_root): Call scm_copy_fluids to make fluid bindings
unique for the new root when it has a parent.
This commit is contained in:
Marius Vollmer 1997-07-18 14:35:58 +00:00
parent ee3ea81d9a
commit d9dfcf8084
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/root.c
View file

@ -49,6 +49,7 @@
#include "smob.h"
#include "pairs.h"
#include "throw.h"
#include "fluids.h"
#include "root.h"
@ -83,6 +84,7 @@ mark_root (root)
scm_gc_mark (s->def_inp);
scm_gc_mark (s->def_outp);
scm_gc_mark (s->def_errp);
scm_gc_mark (s->fluids);
scm_gc_mark (s->top_level_lookup_closure_var);
scm_gc_mark (s->system_transformer);
scm_gc_mark (s->the_last_stack_var);
@ -135,6 +137,7 @@ scm_make_root (parent)
if (SCM_NIMP (parent) && SCM_ROOTP (parent))
{
memcpy (root_state, SCM_ROOT_STATE (parent), sizeof (scm_root_state));
scm_copy_fluids (root_state);
root_state->parent = parent;
}
else