1 ;; test for the 2 cases of vector copy
3 (define x '#u8(0 1 2 3 4 5))
4 (define y (u8vector 10 11 12 13 14 15 16 17 18 19))
5 (define z (u8vector 20 21 22 23 24 25 26 27 28 29))
7 (define (display-vector v)
9 (if (< i (u8vector-length v))
10 (begin (display (u8vector-ref v i))
19 (u8vector-copy! x 1 y 3 4)
20 (u8vector-copy! y 2 z 4 5)
21 (u8vector-copy! z 0 z 2 2)