twc/ludus
4
0
Fork 0
Code Issues 32 Pull Requests Packages Projects 8 Releases Wiki Activity

Remove from interpreter

Browse Source
This commit is contained in:
Scott Richmond 2023-12-17 19:16:45 -05:00
parent 7c7b556115
commit e38fc47478
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ludus/interpreter.cljc
View File

@ -774,9 +774,9 @@
:pair (let [data (:data member) k (-> data first :data first) v (second data)] :pair (let [data (:data member) k (-> data first :data first) v (second data)]
(assoc struct k (interpret-ast v ctx)))))) (assoc struct k (interpret-ast v ctx))))))
(defn- interpret-struct [ast ctx] ; (defn- interpret-struct [ast ctx]
(let [members (:data ast)] ; (let [members (:data ast)]
(assoc (reduce (struct-term ctx) {} members) ::data/struct true))) ; (assoc (reduce (struct-term ctx) {} members) ::data/struct true)))
(defn- ns-term [ctx] (defn- ns-term [ctx]
(fn [ns member] (fn [ns member]
@ -883,8 +883,8 @@
:dict (interpret-dict ast ctx) :dict (interpret-dict ast ctx)
:struct-literal ; :struct-literal
(interpret-struct ast ctx) ; (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})))) (throw (ex-info (str "Unknown AST node type " (get ast :type :err) " on line " (get-in ast [:token :line])) {:ast ast}))))