summaryrefslogtreecommitdiff
path: root/libguile/vm-engine.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/vm-engine.c')
-rw-r--r--libguile/vm-engine.c12
1 files changed, 4 insertions, 8 deletions
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c
index 357acebc6..7e4bd8966 100644
--- a/libguile/vm-engine.c
+++ b/libguile/vm-engine.c
@@ -1671,7 +1671,6 @@ VM_NAME (scm_thread *thread, jmp_buf *registers, int resume)
uint32_t tag, proc_slot;
int32_t offset;
uint8_t escape_only_p;
- scm_t_dynstack_prompt_flags flags;
UNPACK_24 (op, tag);
escape_only_p = ip[1] & 0x1;
@@ -1680,14 +1679,11 @@ VM_NAME (scm_thread *thread, jmp_buf *registers, int resume)
offset >>= 8; /* Sign extension */
/* Push the prompt onto the dynamic stack. */
- flags = escape_only_p ? SCM_F_DYNSTACK_PROMPT_ESCAPE_ONLY : 0;
SYNC_IP ();
- scm_dynstack_push_prompt (&thread->dynstack, flags,
- SP_REF (tag),
- VP->stack_top - VP->fp,
- VP->stack_top - FP_SLOT (proc_slot),
- ip + offset,
- registers);
+ scm_vm_intrinsics.push_prompt (thread, registers, escape_only_p,
+ SP_REF (tag), FP_SLOT (proc_slot),
+ ip + offset);
+
NEXT (3);
}