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

* root.h (scm_root_state): Added 'block_async' slot.

Browse source 
(scm_active_asyncs): Removed abbrev.
* root.c (scm_make_root): Initialize 'block_asyncs' slot.
This commit is contained in:
Marius Vollmer 2002-10-09 22:37:29 +00:00
parent de46f022e4
commit 8ee25fb9f8
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/root.c
View file

@ -131,6 +131,7 @@ scm_make_root (SCM parent)
}
root_state->active_asyncs = SCM_EOL;
root_state->block_asyncs = 0;
SCM_REDEFER_INTS;
SCM_NEWSMOB (root, scm_tc16_root, root_state);