summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/vm-engine.c8
1 files changed, 1 insertions, 7 deletions
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c
index 7e4bd8966..73f42f3da 100644
--- a/libguile/vm-engine.c
+++ b/libguile/vm-engine.c
@@ -1130,13 +1130,7 @@ VM_NAME (scm_thread *thread, jmp_buf *registers, int resume)
else
{
SYNC_IP ();
-
- while (nargs-- > dst)
- {
- rest = scm_inline_cons (thread, FP_REF (nargs), rest);
- FP_SET (nargs, SCM_UNDEFINED);
- }
-
+ rest = scm_vm_intrinsics.cons_rest (thread, dst);
RESET_FRAME (dst + 1);
}