[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
vector->list
From: |
Szavai Gyula |
Subject: |
vector->list |
Date: |
Tue, 28 Nov 2006 13:51:22 +0100 |
User-agent: |
Mozilla/5.0 (Windows; U; Windows NT 5.1; hu-HU; rv:1.8.0.4) Gecko/20060516 Thunderbird/1.5.0.4 Mnenhy/0.7.4.666 |
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);
- vector->list,
Szavai Gyula <=