mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 14:50:19 +02:00
Code Activity

bind-rest inst uses cons-rest intrinsic

Browse source 
* libguile/vm-engine.c (bind-rest): Use cons-rest intrinsic to build the
  rest list.
This commit is contained in:
Andy Wingo 2018-06-27 17:40:46 +02:00
parent 294e627c6b
commit 7e11c992f3
1 changed files with 1 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/vm-engine.c
View file

@ -1130,13 +1130,7 @@ VM_NAME (scm_thread *thread, jmp_buf *registers, int resume)
else else
{ {
SYNC_IP (); SYNC_IP ();
rest = scm_vm_intrinsics.cons_rest (thread, dst);
while (nargs-- > dst)
{
rest = scm_inline_cons (thread, FP_REF (nargs), rest);
FP_SET (nargs, SCM_UNDEFINED);
}
RESET_FRAME (dst + 1); RESET_FRAME (dst + 1);
} }