add assoc to anoia

pull/11/head
Daniel Barlow 2024-03-04 22:25:15 +00:00
parent 095853214b
commit 9730cdd63b
1 changed files with 5 additions and 1 deletions

View File

@ -1,3 +1,7 @@
(fn assoc [tbl k v]
(tset tbl k v)
tbl)
(fn merge [table1 table2]
(collect [k v (pairs table2) &into table1]
k v))
@ -62,4 +66,4 @@
(s:sub 1 (- (# s) pad))))
{ : merge : split : file-exists? : system : hash : base64url : dup }
{ : assoc : merge : split : file-exists? : system : hash : base64url : dup }