From 0e3c047c3fa3ef7d3e7168314bf6fdb0ba15443d Mon Sep 17 00:00:00 2001 From: Kaz Kyheku Date: Mon, 24 Feb 2020 23:03:08 -0800 Subject: 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. --- lib.h | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lib.h') 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); -- cgit v1.2.3