Add rassoc and rassql functions.

* eval.c (eval_init): Register rassoc and rassql intrinsics.

* lib.c (rassoc, rassql): New functions.

* lib.h (rassoc, rassql): Declared.

* txr.1: Documented rassoc and rassql, with small fixes
to assql and assoc.

1 files changed, 28 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index 8720218d..98e80315 100644
--- a/lib.c
+++ b/lib.c
@@ -7277,6 +7277,34 @@ val assql(val key, val list)
   return nil;
 }
 
+val rassoc(val key, val list)
+{
+  list = nullify(list);
+
+  while (list) {
+    val elem = car(list);
+    if (equal(cdr(elem), key))
+      return elem;
+    list = cdr(list);
+  }
+
+  return nil;
+}
+
+val rassql(val key, val list)
+{
+  list = nullify(list);
+
+  while (list) {
+    val elem = car(list);
+    if (eql(cdr(elem), key))
+      return elem;
+    list = cdr(list);
+  }
+
+  return nil;
+}
+
 val acons(val car, val cdr, val list)
 {
   return cons(cons(car, cdr), list);