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 hashsets

Browse source
This commit is contained in:
Justin Ethier 2018-12-19 14:24:20 -05:00
parent 0e797cde1e
commit 58e2809330
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
scheme/cyclone/primitives.sld
View file

@ -8,7 +8,9 @@
;;;;
(define-library (scheme cyclone primitives)
(import (scheme base)
(scheme cyclone hashset)
;(scheme write)
(srfi 69)
)
(export
prim?
@ -47,9 +49,11 @@
(define (prim:udf? exp)
(memq exp *udf-prims*))
(define *hs-prims* (hs-create))
; prim? : exp -> boolean
(define (prim? exp)
(or (memq exp *primitives*)
(or (hs-member? *hs-prims* exp)
(memq exp *udf-prims*)))
;; Does primitive mutate any of its arguments?
@ -1046,4 +1050,6 @@
(cdr udf))
;; No match; keep original function
(else func-sym))))
(hs-add-all! *hs-prims* *primitives*)
))