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 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; |