diff options
Diffstat (limited to 'libguile/continuations.c')
-rw-r--r-- | libguile/continuations.c | 10 |
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); |