diff options
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; |