diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-21 17:50:33 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-21 17:50:33 +0100 |
commit | 796e54a74ce30a22d4a49aa9f63001c572bc2481 (patch) | |
tree | b239b9a90bf7bc3d713dd2a605acc4723fa37f7a /libguile/vm-engine.c | |
parent | b44f5451f89f33d85e1601de72317460614c4193 (diff) | |
download | guile-796e54a74ce30a22d4a49aa9f63001c572bc2481.tar.gz |
One more SCM vm user: continuations.
* libguile/continuations.c:
* libguile/continuations.h (struct scm_t_contregs): Rename SCM vm member
to struct scm_vm *vp.
(scm_i_make_continuation): Take vp instead of vm.
(scm_i_contregs_vp): Rename from scm_i_contregs_vm, return vp.
* libguile/vm-engine.c (continuation-call, call/cc): Fix remaining SCM
vm user.
* libguile/vm.c (vm_return_to_continuation): Adapt prototype.
Diffstat (limited to 'libguile/vm-engine.c')
-rw-r--r-- | libguile/vm-engine.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c index 113669fe5..2461b1469 100644 --- a/libguile/vm-engine.c +++ b/libguile/vm-engine.c @@ -894,7 +894,7 @@ VM_NAME (SCM vm, SCM program, SCM *argv, size_t nargs_) SYNC_IP (); scm_i_check_continuation (contregs); - vm_return_to_continuation (scm_i_contregs_vm (contregs), + vm_return_to_continuation (scm_i_contregs_vp (contregs), scm_i_contregs_vm_cont (contregs), FRAME_LOCALS_COUNT_FROM (1), LOCAL_ADDRESS (1)); @@ -1003,7 +1003,7 @@ VM_NAME (SCM vm, SCM program, SCM *argv, size_t nargs_) copying out to the heap; and likewise, the setjmp(®isters) code already has the non-local return handler. But oh well! */ - cont = scm_i_make_continuation (&first, vm, vm_cont); + cont = scm_i_make_continuation (&first, vp, vm_cont); if (first) { |