Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-25 04:55:04 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Check if renamed symbol is a bound variable

Browse source
This commit is contained in:
Justin Ethier 2016-09-17 17:23:26 -04:00
parent d2019bb284
commit 9555c48850
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
scheme/cyclone/macros.sld
View file

@ -115,7 +115,7 @@
;; if symbol has been renamed and is not a bound variable, ;; if symbol has been renamed and is not a bound variable,
;; undo the rename ;; undo the rename
(let ((val (env:lookup expr *macro:renamed-variables* #f))) (let ((val (env:lookup expr *macro:renamed-variables* #f)))
(if (and val (not (member val bv))) (if (and val (not (member expr bv)))
(clean val bv) (clean val bv)
expr))) expr)))
((if? expr) ((if? expr)