Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added stubs

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

7
scheme/base.sld
View file

@ -41,6 +41,7 @@
make-string make-string
vector vector
vector->list vector->list
vector->string
error error
raise raise
raise-continuable raise-continuable
@ -161,6 +162,12 @@
(loop (+ i 1) (loop (+ i 1)
(cons (vector-ref vec i) lst)))))) (cons (vector-ref vec i) lst))))))
(loop start '()))) (loop start '())))
(define (vector->string vec . opts)
TODO
)
(define (string->vector str . opts)
TODO
)
(define (boolean=? b1 b2 . bs) (define (boolean=? b1 b2 . bs)
(Cyc-obj=? boolean? b1 (cons b2 bs))) (Cyc-obj=? boolean? b1 (cons b2 bs)))