From 62a369e6deb58a3c9eae4991a6fd454dc2334cda Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Fri, 20 Apr 2018 13:22:47 +0200
Subject: [PATCH] core: vector_to_list: Create less garbage.

* src/vector.c (vector_to_list): Create less garbage.
---
 src/vector.c | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/src/vector.c b/src/vector.c
index ad4cac91..701fd6de 100644
--- a/src/vector.c
+++ b/src/vector.c
@@ -23,7 +23,8 @@ make_vector__ (int k)
 {
   SCM v = alloc (k);
   SCM x = make_cell__ (TVECTOR, k, v);
-  for (int i=0; i<k; i++) g_cells[v+i] = g_cells[vector_entry (cell_unspecified)];
+  for (int i=0; i<k; i++)
+    g_cells[v+i] = g_cells[vector_entry (cell_unspecified)];
   return x;
 }
 
@@ -90,12 +91,12 @@ SCM
 vector_to_list (SCM v)
 {
   SCM x = cell_nil;
-  for (int i = 0; i < LENGTH (v); i++)
+  for (int i = LENGTH (v); i; i--)
     {
-      SCM e = VECTOR (v)+i;
+      SCM e = VECTOR (v)+i-1;
       if (TYPE (e) == TREF)
         e = REF (e);
-      x = append2 (x, cons (e, cell_nil));
+      x = cons (e, x);
     }
   return x;
 }