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

Added (vector->list)

Browse source
This commit is contained in:
Justin Ethier 2015-06-03 01:19:15 -04:00
parent 0e8cd6a94e
commit 7d7e77df3d
1 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
scheme/base.sld
View file

@ -40,6 +40,7 @@
Cyc-obj=?
make-string
vector
vector->list
error
raise
raise-continuable
@ -119,7 +120,6 @@
(car lst)
(foldl (lambda (a b) (append-2 b a)) (car lst) (cdr lst)))))
(define (list . objs) objs)
(define (vector . objs) (list->vector objs))
(define (make-list k . fill)
(letrec ((x (if (null? fill)
#f
@ -149,6 +149,19 @@
(let ((kth (list-tail lst k)))
(set-car! kth obj)))
(define (reverse lst) (foldl cons '() lst))
(define (vector . objs) (list->vector objs))
(define (vector->list vec . opts)
(letrec ((len (vector-length vec))
(start (if (> (length opts) 0) (car opts) 0))
(end (if (> (length opts) 1) (cadr opts) len))
(loop (lambda (i lst)
(if (= i end)
lst
(loop (+ i 1)
(cons (vector-ref vec i) lst))))))
(loop start '())))
(define (boolean=? b1 b2 . bs)
(Cyc-obj=? boolean? b1 (cons b2 bs)))
(define (symbol=? sym1 sym2 . syms)