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

Use new vector function

Browse source
This commit is contained in:
Justin Ethier 2016-03-22 20:07:37 -04:00
parent ea605b0737
commit 943dd1aad5
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
scheme/cyclone/cgen.sld
View file

@ -524,7 +524,7 @@
((eq? p 'integer->char) "Cyc_integer2char") ((eq? p 'integer->char) "Cyc_integer2char")
((eq? p 'string->number)"Cyc_string2number2_") ((eq? p 'string->number)"Cyc_string2number2_")
((eq? p 'list->string) "Cyc_list2string") ((eq? p 'list->string) "Cyc_list2string")
((eq? p 'make-vector) "Cyc_make_vector") ((eq? p 'make-vector) "Cyc_make_vector2")
((eq? p 'list->vector) "Cyc_list2vector") ((eq? p 'list->vector) "Cyc_list2vector")
((eq? p 'vector-length) "Cyc_vector_length") ((eq? p 'vector-length) "Cyc_vector_length")
((eq? p 'vector-ref) "Cyc_vector_ref") ((eq? p 'vector-ref) "Cyc_vector_ref")
@ -703,6 +703,7 @@
(and (prim? exp) (and (prim? exp)
(member exp '(error Cyc-write Cyc-display (member exp '(error Cyc-write Cyc-display
string->number string-append string->number string-append
make-vector
+ - * /)))) + - * /))))
;; Does primitive allocate an object? ;; Does primitive allocate an object?