Use ex-info everywhere

2022-04-03 20:08:28 -04:00 · 2022-04-03 20:08:28 -04:00 · 69118ed4e0
commit 69118ed4e0
parent b8e7777841
1 changed files with 1 additions and 1 deletions
--- a/src/ludus/interpreter.clj
+++ b/src/ludus/interpreter.clj
@ -17,7 +17,7 @@
      (get ctx word)
      (if (contains? ctx ::parent)
        (recur word (::parent ctx))
-        (throw (new Exception (str "Unbound name: " word)))))))
+        (throw (ex-info (str "Unbound name: " word) {}))))))

 (declare interpret match)