Hi,

Szavai Gyula <[EMAIL PROTECTED]> writes:

> --- 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);

I just committed the test case and a similar fix in HEAD and 1.8.

Thanks!

Ludovic.


_______________________________________________
Bug-guile mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/bug-guile

Reply via email to