105 |
SCM root; |
SCM root; |
106 |
scm_root_state *root_state; |
scm_root_state *root_state; |
107 |
|
|
108 |
root_state = (scm_root_state *) scm_must_malloc (sizeof (scm_root_state), |
root_state = (scm_root_state *) scm_gc_malloc (sizeof (scm_root_state), |
109 |
"scm_make_root"); |
"root state"); |
110 |
if (SCM_ROOTP (parent)) |
if (SCM_ROOTP (parent)) |
111 |
{ |
{ |
112 |
memcpy (root_state, SCM_ROOT_STATE (parent), sizeof (scm_root_state)); |
memcpy (root_state, SCM_ROOT_STATE (parent), sizeof (scm_root_state)); |
247 |
|
|
248 |
SCM_REDEFER_INTS; |
SCM_REDEFER_INTS; |
249 |
{ |
{ |
250 |
scm_t_contregs *contregs = scm_must_malloc (sizeof (scm_t_contregs), |
scm_t_contregs *contregs = scm_gc_malloc (sizeof (scm_t_contregs), |
251 |
"inferior root continuation"); |
"continuation"); |
252 |
|
|
253 |
contregs->num_stack_items = 0; |
contregs->num_stack_items = 0; |
254 |
contregs->dynenv = SCM_EOL; |
contregs->dynenv = SCM_EOL; |