mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

* __scm.h (SCM_ASYNC_CLICK): Check pending_asyncs instead of

Browse source 
active_asyncs.

* root.h (scm_root_state): Added pending_asyncs and signal_asyncs
fields.
* root.c (root_mark): Mark them.
(make_root): Initialize them.
This commit is contained in:
Marius Vollmer 2002-10-27 20:16:18 +00:00
parent 2132f0d2a5
commit 1ceead47c4
3 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/root.c
View file

@ -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);