preserve pre-macroexpansion form in ::macro-form meta

jonase · Dec 21, 2013 · 81b600c · 81b600c
1 parent 10fc8c0
commit 81b600c
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/eastwood/analyze_ns.clj b/src/eastwood/analyze_ns.clj
@@ -105,7 +105,10 @@
         (let [v (resolve-var op env)
               local? (-> env :locals (get op))]
           (if (and (not local?) (:macro (meta v)))
-           (apply v form (:locals env) (rest form))
+            (let [res (apply v form (:locals env) (rest form))]
+              (if (instance? clojure.lang.IObj res)
+                (vary-meta res assoc ::macro-form form)
+                res))
            (ana.jvm/macroexpand-1 form env)))
         (ana.jvm/macroexpand-1 form env)))
     (ana.jvm/macroexpand-1 form env)))