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.

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