diff options
Diffstat (limited to 'libguile/vm-i-system.c')
-rw-r--r-- | libguile/vm-i-system.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/vm-i-system.c b/libguile/vm-i-system.c index 4445d0c30..f64982260 100644 --- a/libguile/vm-i-system.c +++ b/libguile/vm-i-system.c @@ -1150,7 +1150,7 @@ VM_DEFINE_INSTRUCTION (68, tail_call_cc, "tail-call/cc", 0, 1, 1) VM_DEFINE_INSTRUCTION (69, return, "return", 0, 1, 1) { vm_return: - POP_CONTINUATION_HOOK (1); + POP_CONTINUATION_HOOK (sp, 1); VM_HANDLE_INTERRUPTS; @@ -1189,7 +1189,7 @@ VM_DEFINE_INSTRUCTION (70, return_values, "return/values", 1, -1, -1) that perhaps it might be used without declaration. Fooey to that, I say. */ nvalues = FETCH (); vm_return_values: - POP_CONTINUATION_HOOK (nvalues); + POP_CONTINUATION_HOOK (sp + 1 - nvalues, nvalues); VM_HANDLE_INTERRUPTS; |