diff options
Diffstat (limited to 'src/lux/analyser.clj')
| -rw-r--r-- | src/lux/analyser.clj | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/lux/analyser.clj b/src/lux/analyser.clj index 751e41923..e73423ffc 100644 --- a/src/lux/analyser.clj +++ b/src/lux/analyser.clj @@ -3,6 +3,7 @@ [clojure.core.match :as M :refer [matchv]] clojure.core.match.array (lux [base :as & :refer [exec return fail]] + [reader :as &reader] [parser :as &parser] [type :as &type] [macro :as ¯o] @@ -95,7 +96,7 @@ ["lux;Nil" _]]]]]]]]]]] (do ;; (when (= "if" ?name) ;; (prn "if" (&/show-ast ?value))) - (&&lux/analyse-def analyse ?name ?value)) + (&&lux/analyse-def analyse ?name ?value)) [["lux;Meta" [meta ["lux;Form" ["lux;Cons" [["lux;Meta" [_ ["lux;Symbol" [_ "declare-macro"]]]] ["lux;Cons" [["lux;Meta" [_ ["lux;Symbol" ?ident]]] @@ -465,7 +466,5 @@ ;; [Resources] (defn analyse [eval!] - (exec [asts &parser/parse - ;; :let [_ (prn 'analyse/asts asts)] - ] + (exec [asts &parser/parse] (&/flat-map% (analyse-ast eval!) asts))) |