Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 12:35: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) (define-library (scheme cyclone primitives)
(import (scheme base) (import (scheme base)
(scheme cyclone hashset)
;(scheme write) ;(scheme write)
(srfi 69)
) )
(export (export
prim? prim?
@ -47,9 +49,11 @@
(define (prim:udf? exp) (define (prim:udf? exp)
(memq exp *udf-prims*)) (memq exp *udf-prims*))
(define *hs-prims* (hs-create))
; prim? : exp -> boolean ; prim? : exp -> boolean
(define (prim? exp) (define (prim? exp)
(or (memq exp *primitives*) (or (hs-member? *hs-prims* exp)
(memq exp *udf-prims*))) (memq exp *udf-prims*)))
;; Does primitive mutate any of its arguments? ;; Does primitive mutate any of its arguments?
@ -1046,4 +1050,6 @@
(cdr udf)) (cdr udf))
;; No match; keep original function ;; No match; keep original function
(else func-sym)))) (else func-sym))))
(hs-add-all! *hs-prims* *primitives*)
)) ))