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

Added Cyc-list

Browse source
This commit is contained in:
Justin Ethier 2016-11-28 18:11:52 -05:00
parent 5790716927
commit 4b96938488
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
scheme/cyclone/primitives.sld
View file

@ -61,6 +61,7 @@
Cyc-stdout Cyc-stdout
Cyc-stdin Cyc-stdin
Cyc-stderr Cyc-stderr
Cyc-list
Cyc-fast-plus Cyc-fast-plus
Cyc-fast-sub Cyc-fast-sub
Cyc-fast-mul Cyc-fast-mul
@ -429,6 +430,7 @@
((eq? p 'Cyc-stdout) "Cyc_stdout") ((eq? p 'Cyc-stdout) "Cyc_stdout")
((eq? p 'Cyc-stdin) "Cyc_stdin") ((eq? p 'Cyc-stdin) "Cyc_stdin")
((eq? p 'Cyc-stderr) "Cyc_stderr") ((eq? p 'Cyc-stderr) "Cyc_stderr")
((eq? p 'Cyc-list) "Cyc_list")
((eq? p 'Cyc-fast-plus) "Cyc_fast_sum") ((eq? p 'Cyc-fast-plus) "Cyc_fast_sum")
((eq? p 'Cyc-fast-sub) "Cyc_fast_sub") ((eq? p 'Cyc-fast-sub) "Cyc_fast_sub")
((eq? p 'Cyc-fast-mul) "Cyc_fast_mul") ((eq? p 'Cyc-fast-mul) "Cyc_fast_mul")
@ -567,6 +569,7 @@
;; Does the primitive require passing thread data as its first argument? ;; Does the primitive require passing thread data as its first argument?
(define (prim/data-arg? p) (define (prim/data-arg? p)
(member p '( (member p '(
Cyc-list
Cyc-fast-plus Cyc-fast-plus
Cyc-fast-sub Cyc-fast-sub
Cyc-fast-mul Cyc-fast-mul
@ -753,6 +756,7 @@
(member exp '(Cyc-read-line apply command-line-arguments number->string (member exp '(Cyc-read-line apply command-line-arguments number->string
+ - * / + - * /
= > < >= <= = > < >= <=
Cyc-list
read-char peek-char read-char peek-char
symbol->string list->string substring string-append string->number symbol->string list->string substring string-append string->number
make-bytevector make-bytevector
@ -783,6 +787,7 @@
bytevector bytevector
bytevector-append bytevector-append
make-vector make-vector
Cyc-list
= > < >= <= = > < >= <=
+ - * /)))) + - * /))))