From 9730cdd63b230865d599c403e981fb337d759818 Mon Sep 17 00:00:00 2001
From: Daniel Barlow <dan@telent.net>
Date: Mon, 4 Mar 2024 22:25:15 +0000
Subject: [PATCH] add assoc to anoia

---
 pkgs/anoia/init.fnl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/pkgs/anoia/init.fnl b/pkgs/anoia/init.fnl
index 0d2e282..ce4d031 100644
--- a/pkgs/anoia/init.fnl
+++ b/pkgs/anoia/init.fnl
@@ -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 }