Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-12 23:37:38 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added vector stubs

Browse source
This commit is contained in:
Justin Ethier 2015-06-03 19:18:56 -04:00
parent e5d5305a57
commit 8cd9be8ecf
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
scheme/base.sld
View file

@ -144,6 +144,17 @@
(else
(f (car lst))
(for-each f (cdr lst)))))
; TODO:
;(define (vector-map fnc . vargs)
; (let ((ls (map vector->list v vargs)))
; (list->vector
; (apply map
; (cons fnc ls)))))
;
;(define (vector-for-each fnc . vargs)
; (let ((ls (map vector->list vargs)))
; (apply for-each
; (cons fnc ls))))
(define (list-tail lst k)
(if (zero? k)
lst
@ -176,7 +187,6 @@
(define (vector-append . vecs)
(list->vector
(apply append (map vector->list vecs))))
(define (vector-copy vec . opts)
(letrec ((len (vector-length vec))
(start (if (> (length opts) 0) (car opts) 0))