diff options
author | Marius Vollmer <mvo@zagadka.de> | 2002-10-03 22:56:52 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2002-10-03 22:56:52 +0000 |
commit | d4719ab89265bff48f083b4e029b801c8f69a906 (patch) | |
tree | 75ac6a641565668598610e31dff9cb054b046192 /libguile/root.c | |
parent | 3b1df924800707bb8f0343f593cf2035fea4f031 (diff) | |
download | guile-d4719ab89265bff48f083b4e029b801c8f69a906.tar.gz |
* root.h (scm_root_state): Added new "active_asyncs" slot.
* root.c (scm_make_root): Initialize it to SCM_EOL.
Diffstat (limited to 'libguile/root.c')
-rw-r--r-- | libguile/root.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/libguile/root.c b/libguile/root.c index dd174db5b..6f7d20297 100644 --- a/libguile/root.c +++ b/libguile/root.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1997,1998,1999,2000, 2001 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1997,1998,1999,2000, 2001, 2002 Free Software Foundation, Inc. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by @@ -128,6 +128,9 @@ scm_make_root (SCM parent) = root_state->parent = SCM_BOOL_F; } + + root_state->active_asyncs = SCM_EOL; + SCM_REDEFER_INTS; SCM_NEWSMOB (root, scm_tc16_root, root_state); root_state->handle = root; |