append can now take additional leading arguments before the list.

* eval.c (apply_frob_args): New static function.
(apply_intrinsic): Process arguments with apply_frob_args.
(eval_init): apply_intrinsic registered differently, as a
variadic function with one mandatory arg.

* lib.c (lastcons): New function.

* lib.h (lastcons): Declared.

* txr.1: Updated append documentation.

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))