From f48aa44ba3bdd669c539afb4bb2881e332b77dbe Mon Sep 17 00:00:00 2001
From: Andrey Listopadov <andreyorst@gmail.com>
Date: Thu, 19 May 2022 22:06:53 +0300
Subject: fix: avoid creating message, and erroring on non concatenated types

---
 init.fnl | 4 ++--
 1 file 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])
-- 
cgit v1.2.3