fix: avoid creating message, and erroring on non concatenated types

1 files changed, 2 insertions, 2 deletions

diff --git a/init.fnl b/init.fnl
index 0ef4e48..a230450 100644
--- a/init.fnl
+++ b/init.fnl
@@ -1052,8 +1052,8 @@ use."
     (doto tbl (tset k v))
     {:cljlib/type :table}))
   ([tbl k v & kvs]
-   (assert (= (% (length kvs) 2) 0)
-           (.. "no value supplied for key " (. kvs (length kvs))))
+   (when (not= (% (length kvs) 2) 0)
+     (.. "no value supplied for key " (tostring (. kvs (length kvs)))))
    (assert (not (nil? k)) "attempt to use nil as key")
    (tset tbl k v)
    (var [k v] [nil nil])