Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-15 17:07:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

allow start/end args to uvector->vector conversions (issue #682)

Browse source
This commit is contained in:
Alex Shinn 2020-08-16 08:06:22 +09:00
parent d41fac4f73
commit 5ee7ad0230
2 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/srfi/160/test.sld
View file

@ -27,6 +27,10 @@
(test '#u32(0 1 2 3) (u32vector-concatenate '(#u32(0 1) #u32(2 3))))
(test '#u32(0 1 6 7)
(u32vector-append-subvectors '#u32(0 1 2 3 4) 0 2 '#u32(4 5 6 7 8) 2 4))
(test '#u32(1 2)
(vector->u32vector '#(0 1 2 3) 1 3))
(test '#(1 2)
(u32vector->vector '#u32(0 1 2 3) 1 3))
)
(test-group "uvectors/predicates"

8
lib/srfi/160/uvector.scm
View file

@ -318,11 +318,11 @@
(define (uvector->list vec . o)
(reverse (apply reverse-vector->list vec o)))
(define (uvector->vector vec)
(list->vector (uvector->list vec)))
(define (uvector->vector vec . o)
(list->vector (apply uvector->list vec o)))
(define (vector->uvector vec)
(list->uvector (vector->list vec)))
(define (vector->uvector vec . o)
(list->uvector (apply vector->list vec o)))
(define make-vector-generator
(let ((eof (read-char (open-input-string ""))))