summaryrefslogtreecommitdiff
path: root/libguile/throw.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-11-21 18:28:06 +0100
committerAndy Wingo <wingo@pobox.com>2013-11-21 18:28:06 +0100
commite7f9ababe0532c9b086ffa6b3825d0dafc9364bc (patch)
tree1362ff013e2f19b3c9e51cdce96ea8b2c789ac83 /libguile/throw.c
parent55ee3607003702ef5c53994c6216b9f0f835e0f1 (diff)
downloadguile-e7f9ababe0532c9b086ffa6b3825d0dafc9364bc.tar.gz
scm_the_vm now returns raw struct scm_vm pointer
* libguile/vm.h (scm_the_vm): Return struct scm_vm*. (scm_c_vm_run): Remove. * libguile/control.c: * libguile/eval.c: * libguile/throw.c: * libguile/vm.c: Adapt.
Diffstat (limited to 'libguile/throw.c')
-rw-r--r--libguile/throw.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/throw.c b/libguile/throw.c
index 252632c32..4b1885eed 100644
--- a/libguile/throw.c
+++ b/libguile/throw.c
@@ -470,7 +470,7 @@ pre_init_catch (SCM tag, SCM thunk, SCM handler, SCM pre_unwind_handler)
/* These two are volatile, so we know we can access them after a
nonlocal return to the setjmp. */
- vp = SCM_VM_DATA (scm_the_vm ());
+ vp = scm_the_vm ();
v_handler = handler;
/* Push the prompt onto the dynamic stack. */
@@ -488,7 +488,7 @@ pre_init_catch (SCM tag, SCM thunk, SCM handler, SCM pre_unwind_handler)
/* nonlocal exit */
SCM args;
/* vp is not volatile */
- vp = SCM_VM_DATA (scm_the_vm ());
+ vp = scm_the_vm ();
args = scm_i_prompt_pop_abort_args_x (vp);
/* cdr past the continuation */
return scm_apply_0 (v_handler, scm_cdr (args));