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. --- tests/012/ashwin.expected | 0 tests/012/ashwin.tl | 8 ++++++++ 2 files changed, 8 insertions(+) create mode 100644 tests/012/ashwin.expected create mode 100644 tests/012/ashwin.tl (limited to 'tests') diff --git a/tests/012/ashwin.expected b/tests/012/ashwin.expected new file mode 100644 index 00000000..e69de29b diff --git a/tests/012/ashwin.tl b/tests/012/ashwin.tl new file mode 100644 index 00000000..66226f2c --- /dev/null +++ b/tests/012/ashwin.tl @@ -0,0 +1,8 @@ +(load "../common") + +(defvarl a-list '((a . 42) (b . 73))) +(defvarl key 'a) + +(test (cdr (assq key a-list)) 42) +(test (cdr (assq 'b a-list)) 73) +(test (cdr (assq 'c a-list)) nil) -- cgit v1.2.3