From d6760da67732419d8043d1fdc43e8081f96ef1f1 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 22 Jul 2015 20:41:54 -0700
Subject: Adding nthcdr as accessor.

* eval.c (eval_init): Register nthcdr function.

* lib.c (nthcdr): New function.

* lib.h (nthcdr): Declared.

* share/txr/stdlib/place.tl (nthcdr): New defplace.

* txr.1: Documented.
---
 lib.h | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lib.h')

diff --git a/lib.h b/lib.h
index 7a37030a..caab6b2a 100644
--- a/lib.h
+++ b/lib.h
@@ -457,6 +457,7 @@ loc tail(val cons);
 loc term(loc head);
 loc lastcons(val list);
 val last(val list);
+val nthcdr(val pos, val list);
 loc ltail(loc cons);
 val pop(val *plist);
 val upop(val *plist, val *pundo);
-- 
cgit v1.2.3