summaryrefslogtreecommitdiff
path: root/libguile/eval.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/eval.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/eval.c')
-rw-r--r--libguile/eval.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/eval.c b/libguile/eval.c
index ac11090a6..3e828a178 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -447,7 +447,7 @@ eval (SCM x, SCM env)
k = EVAL1 (CAR (mx), env);
handler = EVAL1 (CDDR (mx), env);
- vp = SCM_VM_DATA (scm_the_vm ());
+ vp = scm_the_vm ();
/* Push the prompt onto the dynamic stack. */
scm_dynstack_push_prompt (&SCM_I_CURRENT_THREAD->dynstack,
@@ -463,7 +463,7 @@ eval (SCM x, SCM env)
{
/* The prompt exited nonlocally. */
proc = handler;
- vp = SCM_VM_DATA (scm_the_vm ());
+ vp = scm_the_vm ();
args = scm_i_prompt_pop_abort_args_x (vp);
goto apply_proc;
}