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.
---
 lib.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib.c')

diff --git a/lib.c b/lib.c
index 7ce96c50..eba06a71 100644
--- a/lib.c
+++ b/lib.c
@@ -60,6 +60,7 @@
 #include "parser.h"
 #include "syslog.h"
 #include "glob.h"
+#include "cadr.h"
 #include "txr.h"
 
 #define max(a, b) ((a) > (b) ? (a) : (b))
@@ -7450,6 +7451,7 @@ void init(const wchar_t *pn, mem_t *(*oom)(mem_t *, size_t),
 #if HAVE_GLOB
   glob_init();
 #endif
+  cadr_init();
 
   gc_state(gc_save);
 }
-- 
cgit v1.2.3