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

Use new comparison ops

Browse source
This commit is contained in:
Justin Ethier 2016-03-31 23:48:09 -04:00
parent f8253f716b
commit 5de999dee7
1 changed files with 13 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
scheme/cyclone/cgen.sld
View file

@ -512,11 +512,11 @@
((eq? p '-) "Cyc_sub")
((eq? p '*) "Cyc_mul")
((eq? p '/) "Cyc_div")
((eq? p '=) "__num_eq")
((eq? p '>) "__num_gt")
((eq? p '<) "__num_lt")
((eq? p '>=) "__num_gte")
((eq? p '<=) "__num_lte")
((eq? p '=) "Cyc_num_eq")
((eq? p '>) "Cyc_num_gt")
((eq? p '<) "Cyc_num_lt")
((eq? p '>=) "Cyc_num_gte")
((eq? p '<=) "Cyc_num_lte")
((eq? p 'apply) "apply")
((eq? p '%halt) "__halt")
((eq? p 'exit) "__halt")
@ -712,6 +712,11 @@
((eq? p '-) "object")
((eq? p '*) "object")
((eq? p '/) "object")
((eq? p '=) "object")
((eq? p '>) "object")
((eq? p '<) "object")
((eq? p '>=) "object")
((eq? p '<=) "object")
((eq? p 'string->number) "object")
((eq? p 'string-append) "object")
((eq? p 'apply) "object")
@ -756,6 +761,7 @@
symbol->string number->string
substring
+ - * / apply
= > < >= <=
command-line-arguments
Cyc-read-line
read-char peek-char
@ -766,6 +772,7 @@
(and (prim? exp)
(member exp '(Cyc-read-line apply command-line-arguments number->string
+ - * /
= > < >= <=
read-char peek-char
symbol->string list->string substring string-append string->number
make-bytevector
@ -792,6 +799,7 @@
bytevector
bytevector-append
make-vector
= > < >= <=
+ - * /))))
;; Does primitive allocate an object?