mirror of
https://github.com/justinethier/cyclone.git
synced 2025-07-05 20:26:35 +02:00
Use new vector function
This commit is contained in:
parent
ea605b0737
commit
943dd1aad5
1 changed files with 2 additions and 1 deletions
|
@ -524,7 +524,7 @@
|
|||
((eq? p 'integer->char) "Cyc_integer2char")
|
||||
((eq? p 'string->number)"Cyc_string2number2_")
|
||||
((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 'vector-length) "Cyc_vector_length")
|
||||
((eq? p 'vector-ref) "Cyc_vector_ref")
|
||||
|
@ -703,6 +703,7 @@
|
|||
(and (prim? exp)
|
||||
(member exp '(error Cyc-write Cyc-display
|
||||
string->number string-append
|
||||
make-vector
|
||||
+ - * /))))
|
||||
|
||||
;; Does primitive allocate an object?
|
||||
|
|
Loading…
Add table
Reference in a new issue