summaryrefslogtreecommitdiff
path: root/init.fnl
diff options
context:
space:
mode:
Diffstat (limited to 'init.fnl')
-rw-r--r--init.fnl2
1 files changed, 2 insertions, 0 deletions
diff --git a/init.fnl b/init.fnl
index 7d5a7f9..4d67d9a 100644
--- a/init.fnl
+++ b/init.fnl
@@ -958,12 +958,14 @@ use."
(fn* core.assoc
"Associate key `k` with value `v` in `tbl`."
([tbl k v]
+ (assert (not (nil? k)) "attempt to use nil as key")
(setmetatable
(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))))
+ (assert (not (nil? k)) "attempt to use nil as key")
(tset tbl k v)
(var [k v] [nil nil])
(var (i k) (next kvs))