diff options
Diffstat (limited to 'src/lux/analyser')
-rw-r--r-- | src/lux/analyser/lux.clj | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/src/lux/analyser/lux.clj b/src/lux/analyser/lux.clj index 570048dcd..75b6f375a 100644 --- a/src/lux/analyser/lux.clj +++ b/src/lux/analyser/lux.clj @@ -60,13 +60,9 @@ [::&&/global ?module ?name] (exec [macro? (&&def/macro? ?module ?name)] (if macro? - (let [macro-class (&host/location (list ?module ?name)) - [macro-expansion state*] (¯o/expand loader macro-class ?args) - ;; _ (prn 'macro-expansion) - ;; _ (doseq [ast macro-expansion] - ;; (prn '=> ast)) - ] - (mapcat-m analyse macro-expansion)) + (let [macro-class (&host/location (list ?module ?name))] + (exec [macro-expansion (¯o/expand loader macro-class ?args)] + (mapcat-m analyse macro-expansion))) (exec [=args (mapcat-m analyse ?args)] (return (list [::&&/Expression [::&&/call =fn =args] &type/+dont-care-type+]))))) |