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

Add additional asts to errors.

Browse Source
This commit is contained in:
Scott Richmond 2022-05-19 17:53:22 -04:00
parent 8d2993637e
commit 62a0fa2429
1 changed files with 5 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/ludus/interpreter.clj
View File

@ -78,7 +78,7 @@
success (:success match)]
(if success
(vswap! ctx update-ctx (:ctx match))
(throw (ex-info (:reason match) {})))
(throw (ex-info (:reason match) {:ast ast})))
value))
(defn- interpret-if [ast ctx]
@ -198,8 +198,8 @@
(if (contains? prev-value (:value curr))
(get prev-value (:value curr))
(if (= (::data/type prev-value) ::data/ns)
(throw (ex-info (str "Namespace error: no member " (:value curr) " in ns " (::data/name prev-value)) {}))
(throw (ex-info (str "Struct error: no member " (:value curr)) {}))))
(throw (ex-info (str "Namespace error: no member " (:value curr) " in ns " (::data/name prev-value)) {:ast curr}))
(throw (ex-info (str "Struct error: no member " (:value curr)) {:ast curr}))))
(get prev-value (:value curr)))
(call-fn prev-value (interpret-ast curr ctx) ctx))))
@ -406,22 +406,9 @@
(def source "
let mytest = {
fn even {
(0) -> true
(n) -> odd (dec (n))
}
let :foo = :bar
fn odd {
(0) -> false
(n) -> even (dec (n))
}
@{odd, even}
}
mytest :odd (1)
mytest :even (955)
")