1 |
/* 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. |
2 |
* |
* |
3 |
* This program is free software; you can redistribute it and/or modify |
* This program is free software; you can redistribute it and/or modify |
4 |
* it under the terms of the GNU General Public License as published by |
* it under the terms of the GNU General Public License as published by |
128 |
= root_state->parent |
= root_state->parent |
129 |
= SCM_BOOL_F; |
= SCM_BOOL_F; |
130 |
} |
} |
131 |
|
|
132 |
|
root_state->active_asyncs = SCM_EOL; |
133 |
|
|
134 |
SCM_REDEFER_INTS; |
SCM_REDEFER_INTS; |
135 |
SCM_NEWSMOB (root, scm_tc16_root, root_state); |
SCM_NEWSMOB (root, scm_tc16_root, root_state); |
136 |
root_state->handle = root; |
root_state->handle = root; |