summaryrefslogtreecommitdiff
path: root/libguile/root.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/root.c')
-rw-r--r--libguile/root.c2
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;