From 1dcfacfa22cc50a95ab057023ed58dcb0608c05e Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Tue, 26 Mar 2024 19:06:18 +0200
Subject: Improve stuff

---
 utils.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'utils.scm')

diff --git a/utils.scm b/utils.scm
index 9bb290e..a7f7b17 100644
--- a/utils.scm
+++ b/utils.scm
@@ -35,4 +35,14 @@
 
   (define (submatch m #!optional (index 1))
     (irregex-match-substring m index))
+
+  (define (assocar key alist)
+    (match (assoc key alist)
+      [#f #f]
+      [pair (car pair)]))
+
+  (define (assocdr key alist)
+    (match (assoc key alist)
+      [#f #f]
+      [pair (cdr pair)]))
   )
-- 
cgit v1.3