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

Speed up free-vars checking for primitives

Browse source 
We know prims are only symbols, so instead of checking for primitives in the top-level cond (which is expensive) we check for it as a sub-condition off of the (ref?) condition. This lets us avoid a call to memq unless we already are inspecting a symbol.
This commit is contained in:
Justin Ethier 2018-12-18 22:00:19 -05:00
parent dd9b612be4
commit 70b27ccd22
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
scheme/cyclone/transforms.sld
View file

@ -705,12 +705,15 @@ if (acc) {
(difference (reduce union (map search (ast:lambda-body exp)) '()) (difference (reduce union (map search (ast:lambda-body exp)) '())
(ast:lambda-formals->list exp))) (ast:lambda-formals->list exp)))
((const? exp) '()) ((const? exp) '())
((prim? exp) '())
((quote? exp) '()) ((quote? exp) '())
((ref? exp) ((ref? exp)
(if (member exp let-vars) (cond
'() ((prim? exp)
(if bound-only? '() (list exp)))) '())
(else
(if (member exp let-vars)
'()
(if bound-only? '() (list exp))))))
((lambda? exp) ((lambda? exp)
(difference (reduce union (map search (lambda->exp exp)) '()) (difference (reduce union (map search (lambda->exp exp)) '())
(lambda-formals->list exp))) (lambda-formals->list exp)))