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;