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

Enable CPS for set-* functions

Browse source
This commit is contained in:
Justin Ethier 2020-01-17 17:46:02 -05:00
parent ffaa9b263a
commit 784e722843
1 changed files with 13 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
scheme/cyclone/primitives.sld
View file

@ -631,8 +631,8 @@
"Cyc_vector_ref"))
((eq? p 'vector-set!)
(if emit-unsafe
"Cyc_vector_set_unsafe"
"Cyc_vector_set"))
"Cyc_vector_set_unsafe2"
"Cyc_vector_set2"))
((eq? p 'string-append) "Cyc_string_append")
((eq? p 'string-cmp) "Cyc_string_cmp")
((eq? p 'string->symbol) "Cyc_string2symbol")
@ -650,8 +650,8 @@
(if emit-unsafe
"Cyc_length_unsafe"
"Cyc_length"))
((eq? p 'set-car!) "Cyc_set_car")
((eq? p 'set-cdr!) "Cyc_set_cdr")
((eq? p 'set-car!) "Cyc_set_car2")
((eq? p 'set-cdr!) "Cyc_set_cdr2")
((eq? p 'eq?) "Cyc_eq")
((eq? p 'eqv?) "Cyc_eq")
((eq? p 'equal?) "equalp")
@ -870,6 +870,9 @@
((eq? p 'make-vector) "object")
((eq? p 'list->string) "object")
((eq? p 'list->vector) "object")
((eq? p 'set-car!) "object")
((eq? p 'set-cdr!) "object")
((eq? p 'vector-set!) "object")
((eq? p 'Cyc-installation-dir) "object")
((eq? p 'Cyc-compilation-environment) "object")
;((memq p *udf-prims*) "object")
@ -900,6 +903,9 @@
make-vector list->vector
symbol->string number->string
substring
set-car!
set-cdr!
vector-set!
;Cyc-fast-plus
;Cyc-fast-sub
;Cyc-fast-mul
@ -938,6 +944,9 @@
Cyc-fast-apply
+ - * /
= > < >= <=
set-car!
set-cdr!
vector-set!
Cyc-list
Cyc-read-char Cyc-peek-char
symbol->string list->string substring string-append string->number