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.

2 files changed, 0 insertions, 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);