diff options
Diffstat (limited to 'libguile/root.c')
-rw-r--r-- | libguile/root.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/libguile/root.c b/libguile/root.c index 3017a16c0..7c5a26c93 100644 --- a/libguile/root.c +++ b/libguile/root.c @@ -81,6 +81,7 @@ root_mark (SCM root) /* No need to gc mark def_loadp */ scm_gc_mark (s->fluids); scm_gc_mark (s->active_asyncs); + scm_gc_mark (s->signal_asyncs); return SCM_ROOT_STATE (root) -> parent; } @@ -131,7 +132,9 @@ scm_make_root (SCM parent) } root_state->active_asyncs = SCM_EOL; + root_state->signal_asyncs = SCM_EOL; root_state->block_asyncs = 0; + root_state->pending_asyncs = 1; SCM_REDEFER_INTS; SCM_NEWSMOB (root, scm_tc16_root, root_state); |