Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 04:25:06 +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")) "Cyc_vector_ref"))
((eq? p 'vector-set!) ((eq? p 'vector-set!)
(if emit-unsafe (if emit-unsafe
"Cyc_vector_set_unsafe" "Cyc_vector_set_unsafe2"
"Cyc_vector_set")) "Cyc_vector_set2"))
((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")
@ -650,8 +650,8 @@
(if emit-unsafe (if emit-unsafe
"Cyc_length_unsafe" "Cyc_length_unsafe"
"Cyc_length")) "Cyc_length"))
((eq? p 'set-car!) "Cyc_set_car") ((eq? p 'set-car!) "Cyc_set_car2")
((eq? p 'set-cdr!) "Cyc_set_cdr") ((eq? p 'set-cdr!) "Cyc_set_cdr2")
((eq? p 'eq?) "Cyc_eq") ((eq? p 'eq?) "Cyc_eq")
((eq? p 'eqv?) "Cyc_eq") ((eq? p 'eqv?) "Cyc_eq")
((eq? p 'equal?) "equalp") ((eq? p 'equal?) "equalp")
@ -870,6 +870,9 @@
((eq? p 'make-vector) "object") ((eq? p 'make-vector) "object")
((eq? p 'list->string) "object") ((eq? p 'list->string) "object")
((eq? p 'list->vector) "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-installation-dir) "object")
((eq? p 'Cyc-compilation-environment) "object") ((eq? p 'Cyc-compilation-environment) "object")
;((memq p *udf-prims*) "object") ;((memq p *udf-prims*) "object")
@ -900,6 +903,9 @@
make-vector list->vector make-vector list->vector
symbol->string number->string symbol->string number->string
substring substring
set-car!
set-cdr!
vector-set!
;Cyc-fast-plus ;Cyc-fast-plus
;Cyc-fast-sub ;Cyc-fast-sub
;Cyc-fast-mul ;Cyc-fast-mul
@ -938,6 +944,9 @@
Cyc-fast-apply Cyc-fast-apply
+ - * / + - * /
= > < >= <= = > < >= <=
set-car!
set-cdr!
vector-set!
Cyc-list Cyc-list
Cyc-read-char Cyc-peek-char Cyc-read-char Cyc-peek-char
symbol->string list->string substring string-append string->number symbol->string list->string substring string-append string->number