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

Keep macros from being optimized out

Browse source
This commit is contained in:
Justin Ethier 2015-08-11 21:50:05 -04:00
parent f9b39e2156
commit e649a8f77a
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/cyclone/transforms.sld
View file

@ -1034,6 +1034,9 @@
;; TODO: would it be better to use *define-macros* directly instead
;; of trying to define it here? that might help prevent issues where
;; an expand is called here before all macros are defined yet
;; - no, we need to do this here so code is carried though all transforms
;; (alpha, cps, closure, etc). otherwise code has to be interpreted during expansion
;;
`(define ,name ,(expand body))))
((macro? exp *defined-macros*)
(expand ;; Could expand into another macro
@ -1213,7 +1216,8 @@
(lambda (ast)
(or (not (define? ast))
(member (define->var ast) all-fv)
(member (define->var ast) lib-exports)))
(member (define->var ast) lib-exports)
(assoc (define->var ast) (get-macros))))
code)))
;; Keep filtering until no more vars are removed
(define (loop code)