From f10ed814f895f2527b99fc6a55057617a7750ba7 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 21 Jul 2015 22:14:23 -0700
Subject: Implementing caar, cadr, cdar and friends.

* lib.c (init): Call cadr_init.

* lisplib.c (dl_table, set_dlt_entries, dlt_register): Externalize.

* lisplib.h (dl_table, set_dlt_entries, dlt_register): Declared.

* Makefile (OBJS): Add cadr.o.

* cadr.c: New file.

* cadr.h: New file.

* gencadr.txr: New file.

* share/txr/stdlib/cadr.tl: New file.

* txr.1: Document cadr accessors.
---
 lisplib.h | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'lisplib.h')

diff --git a/lisplib.h b/lisplib.h
index e947296e..1e5ce485 100644
--- a/lisplib.h
+++ b/lisplib.h
@@ -24,5 +24,11 @@
  * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  */
 
+extern val dl_table;
+
 void lisplib_init(void);
 val lisplib_try_load(val sym);
+void set_dlt_entries(val dlt, val *name, val fun);
+val dlt_register(val dlt,
+                 val (*instantiate)(val),
+                 val (*set_entries)(val, val));
-- 
cgit v1.2.3