term: move near site of use.

* eval.c (term): Function here from lib.c, and changed to
static. It is used only by iapply.

* lib.c (term): Function moved to eval.c.

* lib.h (term): Declaration removed.

1 files changed, 0 insertions, 7 deletions

diff --git a/lib.c b/lib.c
index fd60e1f7..48bf1807 100644
--- a/lib.c
+++ b/lib.c
@@ -660,13 +660,6 @@ loc tail(val cons)
   return cdr_l(cons);
 }
 
-loc term(loc head)
-{
-  while (consp(deref(head)))
-    head = cdr_l(deref(head));
-  return head;
-}
-
 val lastcons(val list)
 {
   val ret;