1 files changed, 12 insertions, 0 deletions

diff --git a/util/alist.scm b/util/alist.scm
new file mode 100644
index 0000000..4e19440
--- /dev/null
+++ b/util/alist.scm
@@ -0,0 +1,12 @@
+(define (is-elem-assoc-list key assoc-list)
+  (cond
+    [(null? assoc-list) #f]
+    [(eq? key (caar assoc-list)) #t]
+    [else (lookup-assoc-list key (cdr assoc-list))]))
+
+(define (lookup-assoc-list key assoc-list)
+  (cond
+    [(null? assoc-list) #f]
+    [(eq? key (caar assoc-list)) (cdar assoc-list)]
+    [else (lookup-assoc-list key (cdr assoc-list))]))
+