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

Put renamed macro sym in use env

Browse source 
Then it is available for use by compare
This commit is contained in:
Justin Ethier 2018-01-28 19:00:09 -05:00
parent cc2b8d037f
commit 958ad75e78
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
scheme/cyclone/util.sld
View file

@ -634,6 +634,9 @@
((tagged-list? 'macro val) ((tagged-list? 'macro val)
(let ((renamed (gensym identifier))) (let ((renamed (gensym identifier)))
(env:define-variable! renamed val mac-env) (env:define-variable! renamed val mac-env)
;; Also update rename over here so it is available for
;; use later on by compare
(env:define-variable! renamed identifier use-env)
renamed)) renamed))
((eq? val 'not-defined) ((eq? val 'not-defined)
;; Unrenamed variable identifier ;; Unrenamed variable identifier