From ff2df257b64111213fd94028d2f18b75ebdee003 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 21 Jun 2021 06:37:50 -0700
Subject: Dubious new functions cxr/cyr.

* lib.c (cxr, cyr): New functions.

* lib.h (cxr, cyr): Declared.

* eval.c (eval_init): Intrinsics cxr and cyr registered.

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

* txr.1: Documented.

* share/txr/stdlib/doc-syms.tl: Updated.
---
 lib.h | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib.h')

diff --git a/lib.h b/lib.h
index a91a2f9b..2a8ed526 100644
--- a/lib.h
+++ b/lib.h
@@ -603,6 +603,8 @@ val seventh(val cons);
 val eighth(val cons);
 val ninth(val cons);
 val tenth(val cons);
+val cxr(val addr, val obj);
+val cyr(val addr, val obj);
 val conses(val list);
 val lazy_conses(val list);
 val listref(val list, val ind);
-- 
cgit v1.2.3