summaryrefslogtreecommitdiff
path: root/libguile/eval.c
diff options
context:
space:
mode:
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;
}