Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-09 22:17:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added (prim:udf?)

Browse source
This commit is contained in:
Justin Ethier 2017-04-04 07:54:39 +00:00
parent 742c55bf45
commit 10fb038c37
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
scheme/cyclone/primitives.sld
View file

@ -32,6 +32,7 @@
;; User defined function primitives ;; User defined function primitives
;*udf-prims* ;*udf-prims*
;*udf-cps->inline* ;*udf-cps->inline*
prim:udf?
prim:add-udf! prim:add-udf!
prim:func->prim prim:func->prim
) )
@ -42,6 +43,8 @@
(set! *udf-cps->inline* (set! *udf-cps->inline*
(cons (cons cps-sym inline-sym) *udf-cps->inline*)) (cons (cons cps-sym inline-sym) *udf-cps->inline*))
(set! *udf-prims* (cons inline-sym *udf-prims*))) (set! *udf-prims* (cons inline-sym *udf-prims*)))
(define (prim:udf? exp)
(member exp *udf-prims*))
; prim? : exp -> boolean ; prim? : exp -> boolean
(define (prim? exp) (define (prim? exp)