summaryrefslogtreecommitdiffstats
path: root/lib.c
diff options
context:
space:
mode:
Diffstat (limited to 'lib.c')
-rw-r--r--lib.c28
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);