From 8d2993637ea6d465b5c8f5bcbef0cbcc90dd57cd Mon Sep 17 00:00:00 2001
From: Scott Richmond <kredati@users.noreply.github.com>
Date: Thu, 19 May 2022 17:16:12 -0400
Subject: [PATCH] Missed an ast add; fix it

---
 src/ludus/interpreter.clj | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/ludus/interpreter.clj b/src/ludus/interpreter.clj
index 4845fdb..9ba0798 100644
--- a/src/ludus/interpreter.clj
+++ b/src/ludus/interpreter.clj
@@ -260,7 +260,7 @@
   (let [path (:path ast)
         name (:name ast)]
     (if (contains? @ctx name)
-      (throw (ex-info (str "Name " name " is alrady bound") {}))
+      (throw (ex-info (str "Name " name " is alrady bound") {:ast ast}))
       (let [result  ;; TODO: add any error handling at all   
             (-> path
               (slurp)