1 files changed, 28 insertions, 0 deletions
diff --git a/lib.c b/lib.c
index 011da356..dc9f28d3 100644
--- a/lib.c
+++ b/lib.c
@@ -8178,6 +8178,20 @@ val assql(val key, val list)
   return nil;
 }
 
+val assq(val key, val list)
+{
+  list = nullify(list);
+
+  while (list) {
+    val elem = car(list);
+    if (eq(car(elem), key))
+      return elem;
+    list = cdr(list);
+  }
+
+  return nil;
+}
+
 val rassoc(val key, val list)
 {
   list = nullify(list);
@@ -8206,6 +8220,20 @@ val rassql(val key, val list)
   return nil;
 }
 
+val rassq(val key, val list)
+{
+  list = nullify(list);
+
+  while (list) {
+    val elem = car(list);
+    if (eq(cdr(elem), key))
+      return elem;
+    list = cdr(list);
+  }
+
+  return nil;
+}
+
 val acons(val car, val cdr, val list)
 {
   return cons(cons(car, cdr), list);