81 |
/* No need to gc mark def_loadp */ |
/* No need to gc mark def_loadp */ |
82 |
scm_gc_mark (s->fluids); |
scm_gc_mark (s->fluids); |
83 |
scm_gc_mark (s->active_asyncs); |
scm_gc_mark (s->active_asyncs); |
84 |
|
scm_gc_mark (s->signal_asyncs); |
85 |
return SCM_ROOT_STATE (root) -> parent; |
return SCM_ROOT_STATE (root) -> parent; |
86 |
} |
} |
87 |
|
|
132 |
} |
} |
133 |
|
|
134 |
root_state->active_asyncs = SCM_EOL; |
root_state->active_asyncs = SCM_EOL; |
135 |
|
root_state->signal_asyncs = SCM_EOL; |
136 |
root_state->block_asyncs = 0; |
root_state->block_asyncs = 0; |
137 |
|
root_state->pending_asyncs = 1; |
138 |
|
|
139 |
SCM_REDEFER_INTS; |
SCM_REDEFER_INTS; |
140 |
SCM_NEWSMOB (root, scm_tc16_root, root_state); |
SCM_NEWSMOB (root, scm_tc16_root, root_state); |