Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-13 07:47:39 +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 (else
(f (car lst)) (f (car lst))
(for-each f (cdr 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) (define (list-tail lst k)
(if (zero? k) (if (zero? k)
lst lst
@ -176,7 +187,6 @@
(define (vector-append . vecs) (define (vector-append . vecs)
(list->vector (list->vector
(apply append (map vector->list vecs)))) (apply append (map vector->list vecs))))
(define (vector-copy vec . opts) (define (vector-copy vec . opts)
(letrec ((len (vector-length vec)) (letrec ((len (vector-length vec))
(start (if (> (length opts) 0) (car opts) 0)) (start (if (> (length opts) 0) (car opts) 0))