New function: assq and rassq.

TXR Lisp is henceforth a dialect in which

  (cdr (assq key a-list))

works exactly as shown, without substitution of
assql or assoc.

* eval.c (eval_init): Register assq and rassq intrinsics.

* lib.c (assq, rassq): New functions.

* lib.h (assq, rassq): Declared.

* txr.1: Documented.

* tests/012/ashwin.tl: New file.

* tests/012/ashwin.expected: New file.

1 files changed, 2 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 76e2f143..1de96492 100644
--- a/lib.h
+++ b/lib.h
@@ -1066,8 +1066,10 @@ mem_t *cptr_handle(val cobj, val type_sym, val self);
 mem_t **cptr_addr_of(val cptr, val type_sym, val self);
 val assoc(val key, val list);
 val assql(val key, val list);
+val assq(val key, val list);
 val rassoc(val key, val list);
 val rassql(val key, val list);
+val rassq(val key, val list);
 val acons(val car, val cdr, val list);
 val acons_new(val key, val value, val list);
 val acons_new_c(val key, loc new_p, loc list);