diff --git a/pkgs/anoia/init.fnl b/pkgs/anoia/init.fnl index 0b2f79e..75c2185 100644 --- a/pkgs/anoia/init.fnl +++ b/pkgs/anoia/init.fnl @@ -1,6 +1,8 @@ -(fn assoc [tbl k v] +(fn assoc [tbl k v & more] (tset tbl k v) - tbl) + (case more + [k v] (assoc tbl k v) + _ tbl)) (fn merge [table1 table2] (collect [k v (pairs table2) &into table1]