[Guile-commits] 05/13: bind-rest inst uses cons-rest intrinsic

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 7e11c992f3f7f73c74a06d98db845fe71a2af1e2
Author: Andy Wingo <address@hidden>
Date:   Wed Jun 27 17:40:46 2018 +0200

    bind-rest inst uses cons-rest intrinsic
    
    * libguile/vm-engine.c (bind-rest): Use cons-rest intrinsic to build the
      rest list.
---
 libguile/vm-engine.c | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c
index 7e4bd89..73f42f3 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);
         }