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

Clean up renamed symbols that are quoted.

Browse source
This commit is contained in:
Justin Ethier 2016-09-22 23:55:19 -04:00
parent 77cae5060b
commit aea65ac563
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
scheme/cyclone/macros.sld
View file

@ -109,8 +109,14 @@
(cond (cond
((const? expr) expr) ((const? expr) expr)
((null? expr) expr) ((null? expr) expr)
;((prim? expr) expr) ((quote? expr)
((quote? expr) expr) (let ((atom (cadr expr)))
;; Clean up any renamed symbols that are quoted
;; TODO: good enough for quoted pairs or do
;; we need to traverse those, too?
(if (ref? atom)
`(quote ,(clean atom bv))
expr)))
((define-c? expr) expr) ((define-c? expr) expr)
((ref? expr) ((ref? expr)
;; if symbol has been renamed and is not a bound variable, ;; if symbol has been renamed and is not a bound variable,