suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

when anormalizing, never lift out identifiers from application expressions

Browse Source 
The code used to avoid lifting identifier in more restricted circumstances,
but it seems safe to alway avoid that, which can lead to a lot
less lifting
This commit is contained in:
Robby Findler 2013-03-08 13:01:28 -06:00
parent 87f76e94f7
commit 3311387201
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/plai/gc2/mutator.rkt
View File

@ -221,13 +221,7 @@
(define-syntax (mutator-app stx)
(syntax-case stx ()
[(_ e ...)
(local [(define (do-not-expand? exp)
(and (identifier? exp)
(or (free-identifier=? exp #'empty)
(free-identifier=? exp #'collector:set-first!)
(free-identifier=? exp #'collector:set-rest!)
(ormap (λ (x) (free-identifier=? x exp))
prim-ids))))
(local [(define (do-not-expand? exp) (identifier? exp))
(define exps (syntax->list #'(e ...)))
(define tmps
(generate-temporaries #'(e ...)))]