support multi-arg assoc

2024-08-14 22:34:37 +01:00 · 2024-08-14 22:34:37 +01:00 · 79445fd962
parent a9ddd78482
commit 79445fd962
1 changed files with 4 additions and 2 deletions
--- 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]