diff options
Diffstat (limited to 'src/lux/analyser/base.clj')
-rw-r--r-- | src/lux/analyser/base.clj | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/src/lux/analyser/base.clj b/src/lux/analyser/base.clj index 4b23f9460..1653a4fa1 100644 --- a/src/lux/analyser/base.clj +++ b/src/lux/analyser/base.clj @@ -26,18 +26,6 @@ [_] (fail "[Analyser Error] Can't expand to other than 1 element."))))) -(defn analyse-2 [analyse exo-type1 el1 exo-type2 el2] - (|do [output1 (analyse exo-type1 el1) - output2 (analyse exo-type2 el2)] - (do ;; (prn 'analyse-2 (aget output 0)) - (matchv ::M/objects [output1 output2] - [["lux;Cons" [x ["lux;Nil" _]]] - ["lux;Cons" [y ["lux;Nil" _]]]] - (return (&/T x y)) - - [_ _] - (fail "[Analyser Error] Can't expand to other than 2 elements."))))) - (defn resolved-ident [ident] (|let [[?module ?name] ident] (|do [module* (if (= "" ?module) |