From 18d1c715712c74f709240fb389a6601a1a812895 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 2 Jan 2018 16:01:42 -0800
Subject: ltail: unused function.

* lib.c (ltail): Function removed. This was introduced at the
same time as lazy_appendv and used only by it. That function
was rewritten a few months ago and doesn't use lail.

* lib.h (ltail): Declaration removed.
---
 lib.c | 7 -------
 lib.h | 1 -
 2 files changed, 8 deletions(-)

diff --git a/lib.c b/lib.c
index e5857e9c..6bb5f809 100644
--- a/lib.c
+++ b/lib.c
@@ -748,13 +748,6 @@ val butlastn(val n, val list)
   return ldiff(list, tail);
 }
 
-loc ltail(loc cons)
-{
-  while (cdr(deref(cons)))
-    cons = cdr_l(deref(cons));
-  return cons;
-}
-
 val pop(val *plist)
 {
   val ret = car(*plist);
diff --git a/lib.h b/lib.h
index f38314dc..2cd17d38 100644
--- a/lib.h
+++ b/lib.h
@@ -543,7 +543,6 @@ val nthlast(val pos, val list);
 val nthcdr(val pos, val list);
 val nth(val pos, val list);
 val butlastn(val n, val list);
-loc ltail(loc cons);
 val pop(val *plist);
 val upop(val *plist, val *pundo);
 val rcyc_pop(val *plist);
-- 
cgit v1.2.3