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, 7 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index d82f2141..0a3ba209 100644
--- a/eval.c
+++ b/eval.c
@@ -1138,6 +1138,13 @@ static val applyv(val fun, struct args *args)
   return apply_intrinsic(fun, args_get_list(args));
 }
 
+static loc term(loc head)
+{
+  while (consp(deref(head)))
+    head = cdr_l(deref(head));
+  return head;
+}
+
 static val iapply(val fun, struct args *args)
 {
   cnum index = 0;