mirror of
https://github.com/justinethier/cyclone.git
synced 2025-07-08 13:37:33 +02:00
Clean up renamed symbols that are quoted.
This commit is contained in:
parent
77cae5060b
commit
aea65ac563
1 changed files with 8 additions and 2 deletions
|
@ -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,
|
||||||
|
|
Loading…
Add table
Reference in a new issue