Hi,
I think there's a bug in vector-move-right!. I'm using guile 1.9.9 as
built from the git repository earlier today.
This is the behavior I see:
"
scheme@(guile-user)> (define *v1* #(1 2 3 4 5 6 7 8 9))
scheme@(guile-user)> (define *v2* #(10 20 30 40 50 60 70 80 90))
scheme@(guile-user)> (vector-move-right! *v1* 0 2 *v2* 5)
scheme@(guile-user)> *v2*
#(10 20 30 1 2 60 70 80 90)
"
It seems to interpret the argument start2 as an ending index. I
thought for a second that this might be intended behavior, but it says
in the documentation that start2 is supposed to be an inclusive index,
which it isn't.
This is the behavior I expect:
"
scheme@(guile-user)> (define *v1* #(1 2 3 4 5 6 7 8 9))
scheme@(guile-user)> (define *v2* #(10 20 30 40 50 60 70 80 90))
scheme@(guile-user)> (vector-move-right! *v1* 0 2 *v2* 5)
scheme@(guile-user)> *v2*
#(10 20 30 40 50 1 2 80 90)
"
This is also the behavior already shown by vector-move-left! in the
same context.
If this is actually a bug rather than a documentation issue, it can be
fixed by adding one line to libguile/vectors.c. Here's a diff:
diff -c /home/zededarian/bak/vectors.c.old
/home/zededarian/gg/libguile/vectors.c
*** /home/zededarian/bak/vectors.c.old 2010-03-25 16:41:48.000000000 -0500
--- /home/zededarian/gg/libguile/vectors.c 2010-03-26
01:37:52.000000000 -0500
***************
*** 573,578 ****
--- 573,580 ----
i = scm_to_unsigned_integer (start1, 0, len1);
e = scm_to_unsigned_integer (end1, i, len1);
j = scm_to_unsigned_integer (start2, 0, len2 - (i-e));
+
+ j += (e - i);
i *= inc1;
e *= inc1;
Diff finished. Fri Mar 26 02:03:05 2010
