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 9b620dd1e..104869969 100644
--- a/libguile/root.c
+++ b/libguile/root.c
@@ -193,7 +193,7 @@ cwdr (proc, a1, args, handler, stack_start)
SCM_SETJMPBUF (new_rootcont,
scm_must_malloc ((long) sizeof (scm_contregs),
"inferior root continuation"));
- SCM_CAR (new_rootcont) = scm_tc7_contin;
+ SCM_SETCAR (new_rootcont, scm_tc7_contin);
SCM_DYNENV (new_rootcont) = SCM_EOL;
SCM_BASE (new_rootcont) = stack_start;
SCM_SEQ (new_rootcont) = ++n_dynamic_roots;