vector->list

[Szavai Gyula]

guile-1.8-20061126

(let ((b (make-shared-array #(1) (lambda (x) '(0)) 2)))
  (list b
        (vector->list b)))
==> (#(1 1) ())



--- orig/libguile/vectors.c      2006-11-28 10:15:36.354766400 +0100
+++ mod/libguile/vectors.c   2006-11-28 10:21:52.195198400 +0100
@@ -392,11 +392,11 @@
   SCM res = SCM_EOL;
   const SCM *data;
   scm_t_array_handle handle;
-  size_t i, len;
+  size_t i, j, len;
   ssize_t inc;

   data = scm_vector_elements (v, &handle, &len, &inc);
-  for (i = len*inc; i > 0;)
+  for (i = len*inc, j = len; j > 0; --j)
     {
       i -= inc;
       res = scm_cons (data[i], res);