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

Use ex-info everywhere

Browse Source
This commit is contained in:
Scott Richmond 2022-04-03 20:08:28 -04:00
parent b8e7777841
commit 69118ed4e0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ludus/interpreter.clj
View File

@ -17,7 +17,7 @@
(get ctx word) (get ctx word)
(if (contains? ctx ::parent) (if (contains? ctx ::parent)
(recur word (::parent ctx)) (recur word (::parent ctx))
(throw (new Exception (str "Unbound name: " word))))))) (throw (ex-info (str "Unbound name: " word) {}))))))
(declare interpret match) (declare interpret match)