- Added module-name aliasing.

1 files changed, 13 insertions, 0 deletions

diff --git a/src/lux/macro.clj b/src/lux/macro.clj
index d31c22d78..7b612cbbb 100644
--- a/src/lux/macro.clj
+++ b/src/lux/macro.clj
@@ -7,6 +7,19 @@
 (defn expand [loader macro-class tokens]
   (fn [state]
     ;; (prn 'expand macro-class tokens state)
+    ;; (let [expansion (-> (.loadClass loader macro-class)
+    ;;                     (.getField "_datum")
+    ;;                     (.get nil)
+    ;;                     (.apply tokens)
+    ;;                     (.apply state))]
+    ;;   (matchv ::M/objects [expansion]
+    ;;     [["lux;Right" [state* nodes]]]
+    ;;     (doseq [node (&/->seq nodes)]
+    ;;       (prn 'expansion macro-class (&/show-ast node)))
+
+    ;;     [_]
+    ;;     nil)
+    ;;   expansion)
     (-> (.loadClass loader macro-class)
         (.getField "_datum")
         (.get nil)