calling something other than a function causes a panic

This commit is contained in:
Scott Richmond 2024-06-20 17:49:27 -04:00
parent 887d192c8a
commit 0363d5a091

View File

@ -463,7 +463,8 @@
[:dict :keyword] (get prev curr :^nil) [:dict :keyword] (get prev curr :^nil)
[:nil :keyword] :^nil [:nil :keyword] :^nil
[:pkg :keyword] (get prev curr :^nil) [:pkg :keyword] (get prev curr :^nil)
[:pkg :pkg-kw] (get prev curr :^nil))) [:pkg :pkg-kw] (get prev curr :^nil)
(error (string "cannot call " (b/ludus/type prev) " `" (b/show prev) "`"))))
(defn- synthetic [ast ctx] (defn- synthetic [ast ctx]
(def terms (ast :data)) (def terms (ast :data))