Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-16 09:17:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Initial version of vector-append

Browse source
This commit is contained in:
Justin Ethier 2015-06-02 22:59:49 -04:00
parent 2edaffc320
commit 3f5a0b6197
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
scheme/base.sld
View file

@ -174,7 +174,8 @@
(list->vector
(string->list str)))
(define (vector-append . vecs)
vecs) ; TODO
(list->vector
(apply append (map vector->list vecs))))
(define (vector-copy vec . opts)
(letrec ((len (vector-length vec))