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

Added (vector)

Browse source
This commit is contained in:
Justin Ethier 2015-06-01 21:53:13 -04:00
parent fec8262285
commit ae3bdfbe0a
2 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
cgen.scm
View file

@ -435,7 +435,7 @@
((eq? p 'list->string) "Cyc_list2string") ((eq? p 'list->string) "Cyc_list2string")
((eq? p 'string->list) "string2list") ((eq? p 'string->list) "string2list")
((eq? p 'make-vector) "make_vector") ((eq? p 'make-vector) "make_vector")
((eq? p 'list->vector) "list_vector") ((eq? p 'list->vector) "list2vector")
((eq? p 'string-append) "Cyc_string_append") ((eq? p 'string-append) "Cyc_string_append")
((eq? p 'string-cmp) "Cyc_string_cmp") ((eq? p 'string-cmp) "Cyc_string_cmp")
((eq? p 'string->symbol) "Cyc_string2symbol") ((eq? p 'string->symbol) "Cyc_string2symbol")

2
scheme/base.sld
View file

@ -39,6 +39,7 @@
symbol=? symbol=?
Cyc-obj=? Cyc-obj=?
make-string make-string
vector
error error
raise raise
raise-continuable raise-continuable
@ -118,6 +119,7 @@
(car lst) (car lst)
(foldl (lambda (a b) (append-2 b a)) (car lst) (cdr lst))))) (foldl (lambda (a b) (append-2 b a)) (car lst) (cdr lst)))))
(define (list . objs) objs) (define (list . objs) objs)
(define (vector . objs) (list->vector objs))
(define (make-list k . fill) (define (make-list k . fill)
(letrec ((x (if (null? fill) (letrec ((x (if (null? fill)
#f #f