diff options
Diffstat (limited to 'libguile/continuations.c')
-rw-r--r-- | libguile/continuations.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/libguile/continuations.c b/libguile/continuations.c index cb586e32b..7c40dbfe3 100644 --- a/libguile/continuations.c +++ b/libguile/continuations.c @@ -178,10 +178,9 @@ scm_i_continuation_to_frame (SCM continuation) { struct scm_vm_cont *data = SCM_VM_CONT_DATA (cont->vm_cont); return scm_c_make_frame (cont->vm_cont, - data->fp + data->reloc, - data->sp + data->reloc, - data->ra, - data->reloc); + (data->fp + data->reloc) - data->stack_base, + (data->sp + data->reloc) - data->stack_base, + data->ra); } else return SCM_BOOL_F; |