summaryrefslogtreecommitdiff
path: root/libguile/vm.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/vm.c')
-rw-r--r--libguile/vm.c10
1 files changed, 4 insertions, 6 deletions
diff --git a/libguile/vm.c b/libguile/vm.c
index 9aa101a3a..425e57ed5 100644
--- a/libguile/vm.c
+++ b/libguile/vm.c
@@ -137,17 +137,15 @@ reinstate_vm_cont (struct scm_vm *vp, SCM cont)
call to vm_run; but that's currently not implemented.
*/
SCM
-scm_vm_capture_continuations (void)
+scm_i_vm_capture_continuation (SCM vm)
{
- SCM vm = scm_the_vm ();
- return scm_acons (vm, capture_vm_cont (SCM_VM_DATA (vm)), SCM_EOL);
+ return capture_vm_cont (SCM_VM_DATA (vm));
}
void
-scm_vm_reinstate_continuations (SCM conts)
+scm_i_vm_reinstate_continuation (SCM vm, SCM cont)
{
- for (; conts != SCM_EOL; conts = SCM_CDR (conts))
- reinstate_vm_cont (SCM_VM_DATA (SCM_CAAR (conts)), SCM_CDAR (conts));
+ reinstate_vm_cont (SCM_VM_DATA (vm), cont);
}
static void