From e38fc47478d48d47f6d82857bb64abf2b3a012a1 Mon Sep 17 00:00:00 2001 From: Scott Richmond Date: Sun, 17 Dec 2023 19:16:45 -0500 Subject: [PATCH] Remove from interpreter --- src/ludus/interpreter.cljc | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/ludus/interpreter.cljc b/src/ludus/interpreter.cljc index eefe08c..6b8b470 100644 --- a/src/ludus/interpreter.cljc +++ b/src/ludus/interpreter.cljc @@ -774,9 +774,9 @@ :pair (let [data (:data member) k (-> data first :data first) v (second data)] (assoc struct k (interpret-ast v ctx)))))) -(defn- interpret-struct [ast ctx] - (let [members (:data ast)] - (assoc (reduce (struct-term ctx) {} members) ::data/struct true))) +; (defn- interpret-struct [ast ctx] +; (let [members (:data ast)] +; (assoc (reduce (struct-term ctx) {} members) ::data/struct true))) (defn- ns-term [ctx] (fn [ns member] @@ -883,8 +883,8 @@ :dict (interpret-dict ast ctx) - :struct-literal - (interpret-struct ast ctx) + ; :struct-literal + ; (interpret-struct ast ctx) (throw (ex-info (str "Unknown AST node type " (get ast :type :err) " on line " (get-in ast [:token :line])) {:ast ast}))))