From 958ad75e781ffe6c64e3ab6a33185863c1927eb0 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sun, 28 Jan 2018 19:00:09 -0500
Subject: [PATCH] Put renamed macro sym in use env

Then it is available for use by compare
---
 scheme/cyclone/util.sld | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/scheme/cyclone/util.sld b/scheme/cyclone/util.sld
index 45ebbc12..aa043d18 100644
--- a/scheme/cyclone/util.sld
+++ b/scheme/cyclone/util.sld
@@ -634,6 +634,9 @@
                    ((tagged-list? 'macro val)
                     (let ((renamed (gensym identifier)))
                       (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))
                    ((eq? val 'not-defined)
                      ;; Unrenamed variable identifier