diff options
Diffstat (limited to 'src/lux/analyser.clj')
| -rw-r--r-- | src/lux/analyser.clj | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/lux/analyser.clj b/src/lux/analyser.clj index e46d424f2..115d21d6f 100644 --- a/src/lux/analyser.clj +++ b/src/lux/analyser.clj @@ -163,9 +163,12 @@ (fail (str "[Analyser Error] Unmatched token: " (pr-str token))))) (defn ^:private analyse-ast [token] + ;; (prn 'analyse-ast token) (match token [::&parser/Form ([[::&parser/Tag ?tag] & ?values] :seq)] - (exec [_ (assert! (= 1 (count ?values)) "[Analyser Error] Can only tag 1 value.") + (exec [:let [_ (prn 'PRE-ASSERT)] + :let [_ (assert (= 1 (count ?values)) "[Analyser Error] Can only tag 1 value.")] + :let [_ (prn 'POST-ASSERT)] :let [?value (first ?values)] =value (&&/analyse-1 analyse-ast ?value) =value-type (&&/expr-type =value)] |