Improve stuff

1 files changed, 10 insertions, 0 deletions

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)]))
   )