diff options
Diffstat (limited to 'libguile/root.c')
-rw-r--r-- | libguile/root.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/root.c b/libguile/root.c index ebfdf2c32..9330b24b0 100644 --- a/libguile/root.c +++ b/libguile/root.c @@ -272,7 +272,7 @@ scm_internal_cwdr (scm_catch_body_t body, void *body_data, scm_must_malloc (sizeof (scm_contregs), "inferior root continuation")); #endif - SCM_SETCAR (new_rootcont, scm_tc7_contin); + SCM_SET_CELL_TYPE (new_rootcont, scm_tc7_contin); SCM_DYNENV (new_rootcont) = SCM_EOL; SCM_BASE (new_rootcont) = stack_start; SCM_SEQ (new_rootcont) = ++n_dynamic_roots; |