1 files changed, 10 insertions, 0 deletions
diff --git a/lib.c b/lib.c
index d2fa0147..09ca61c6 100644
--- a/lib.c
+++ b/lib.c
@@ -400,6 +400,16 @@ val *tail(val cons)
   return cdr_l(cons);
 }
 
+val *lastcons(val list)
+{
+  val *ret = 0;
+  while (consp(cdr(list))) {
+    ret = cdr_l(list);
+    list = cdr(list);
+  }
+  return ret;
+}
+
 val *ltail(val *cons)
 {
   while (cdr(*cons))