Provide butlast function.

* eval.c (eval_init): Registered butlast intrinsic.

* lib.c (butlast): New function.

* lib.h (butlast): Declared.

* txr.1: Documented butlast.

1 files changed, 5 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index 09e85693..580b2c2c 100644
--- a/lib.c
+++ b/lib.c
@@ -7396,6 +7396,11 @@ val dwim_del(val seq, val ind_range)
   }
 }
 
+val butlast(val seq)
+{
+  return sub(seq, zero, negone);
+}
+
 val update(val seq, val fun)
 {
   switch (type(seq)) {