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

delete_structs #13

Merged
scott merged 6 commits from delete_structs into main 2023-12-18 00:21:38 +00:00
Conversation 0 Commits 6 Files Changed 8 +5 -5
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit e38fc47478 - Show all commits

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}))))