diff options
Diffstat (limited to '')
-rw-r--r-- | src/lux/macro.clj | 13 |
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) |