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

WIP

Browse source
This commit is contained in:
Justin Ethier 2017-04-04 18:47:05 -04:00
parent c7476fb1ed
commit 0e092da703
1 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
scheme/cyclone/primitives.sld
View file

@ -28,8 +28,20 @@
prim:cont/no-args?
prim:arg-count?
prim:allocates-object?
prim:immutable-args/result?)
prim:immutable-args/result?
;; User defined function primitives
;*udf-prims*
;*udf-cps->inline*
prim:add-udf!
)
(begin
(define *udf-prims* '())
(define *udf-cps->inline* '())
(define (prim:add-udf! cps-sym inline-sym)
(set! *udf-cps->inline*
(cons (cons cps-sym inline-sym) *udf-cps->inline*))
(set! *udf-prims* (cons inline-sym *udf-prims*)))
; prim? : exp -> boolean
(define (prim? exp)
(member exp *primitives*))