From a5e15201372e6f8964b06a614103034f4d0db212 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 14 Aug 2015 18:16:21 -0400
Subject: [PATCH] Allow expansion of compiled and eval'd macros

---
 scheme/cyclone/transforms.sld | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld
index d95d2f1f..470f8116 100644
--- a/scheme/cyclone/transforms.sld
+++ b/scheme/cyclone/transforms.sld
@@ -1043,7 +1043,8 @@
         ;;    (alpha, cps, closure, etc). otherwise code has to be interpreted during expansion
         ;;
         `(define ,name ,(expand body))))
-     ((macro:macro? exp *defined-macros*)
+     ((or (macro? exp)
+          (macro:macro? exp *defined-macros*))
        (expand ;; Could expand into another macro
          (macro:expand exp *defined-macros*)))
      (else