forked from DGNum/liminix
add assoc to anoia
This commit is contained in:
parent
095853214b
commit
9730cdd63b
1 changed files with 5 additions and 1 deletions
|
@ -1,3 +1,7 @@
|
||||||
|
(fn assoc [tbl k v]
|
||||||
|
(tset tbl k v)
|
||||||
|
tbl)
|
||||||
|
|
||||||
(fn merge [table1 table2]
|
(fn merge [table1 table2]
|
||||||
(collect [k v (pairs table2) &into table1]
|
(collect [k v (pairs table2) &into table1]
|
||||||
k v))
|
k v))
|
||||||
|
@ -62,4 +66,4 @@
|
||||||
(s:sub 1 (- (# s) pad))))
|
(s:sub 1 (- (# s) pad))))
|
||||||
|
|
||||||
|
|
||||||
{ : merge : split : file-exists? : system : hash : base64url : dup }
|
{ : assoc : merge : split : file-exists? : system : hash : base64url : dup }
|
||||||
|
|
Loading…
Reference in a new issue