summaryrefslogtreecommitdiff
path: root/libguile/eval.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/eval.c')
-rw-r--r--libguile/eval.c16
1 files changed, 8 insertions, 8 deletions
diff --git a/libguile/eval.c b/libguile/eval.c
index df4b64f94..7b09d84f7 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -449,14 +449,14 @@ eval (SCM x, SCM env)
vm = scm_the_vm ();
/* Push the prompt onto the dynamic stack. */
- scm_dynstack_push_prompt (&SCM_I_CURRENT_THREAD->dynstack,
- SCM_F_DYNSTACK_PROMPT_ESCAPE_ONLY
- | SCM_F_DYNSTACK_PROMPT_PUSH_NARGS,
- k,
- SCM_VM_DATA (vm)->fp,
- SCM_VM_DATA (vm)->sp,
- SCM_VM_DATA (vm)->ip,
- &registers);
+ scm_dynstack_push_prompt
+ (&SCM_I_CURRENT_THREAD->dynstack,
+ SCM_F_DYNSTACK_PROMPT_ESCAPE_ONLY | SCM_F_DYNSTACK_PROMPT_PUSH_NARGS,
+ k,
+ SCM_VM_DATA (vm)->fp - SCM_VM_DATA (vm)->stack_base,
+ SCM_VM_DATA (vm)->sp - SCM_VM_DATA (vm)->stack_base,
+ SCM_VM_DATA (vm)->ip,
+ &registers);
if (SCM_I_SETJMP (registers))
{