summaryrefslogtreecommitdiff
path: root/libguile/continuations.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/continuations.c')
-rw-r--r--libguile/continuations.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/continuations.c b/libguile/continuations.c
index dd9b6e07a..ec554caaf 100644
--- a/libguile/continuations.c
+++ b/libguile/continuations.c
@@ -72,7 +72,7 @@ scm_make_cont (SCM *answer)
SCM_NEWCELL (cont);
*answer = cont;
SCM_ENTER_A_SECTION;
- SCM_SETJMPBUF (cont, scm_must_malloc ((long) sizeof (scm_contregs), s_cont));
+ SCM_SET_CONTREGS (cont, scm_must_malloc (sizeof (scm_contregs), s_cont));
SCM_DYNENV (cont) = scm_dynwinds;
SCM_THROW_VALUE = SCM_EOL;
SCM_BASE (cont) = SCM_BASE (rootcont);
@@ -101,10 +101,10 @@ scm_make_cont (SCM *answer)
SCM_ENTER_A_SECTION;
SCM_FLUSH_REGISTER_WINDOWS;
j = scm_stack_size (SCM_BASE (scm_rootcont));
- SCM_SETJMPBUF (cont,
- scm_must_malloc (sizeof (scm_contregs)
- + j * sizeof (SCM_STACKITEM),
- s_cont));
+ SCM_SET_CONTREGS (cont,
+ scm_must_malloc (sizeof (scm_contregs)
+ + j * sizeof (SCM_STACKITEM),
+ s_cont));
SCM_DYNENV (cont) = scm_dynwinds;
SCM_THROW_VALUE (cont) = SCM_EOL;
src = SCM_BASE (cont) = SCM_BASE (scm_rootcont);