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

diff --git a/lib.h b/lib.h
index 153492d9..3b10ce6d 100644
--- a/lib.h
+++ b/lib.h
@@ -905,6 +905,7 @@ val ref(val seq, val ind);
 val refset(val seq, val ind, val newval);
 val dwim_set(val seq, val ind_range, val newval);
 val dwim_del(val seq, val ind_range);
+val butlast(val seq);
 val replace(val seq, val items, val from, val to);
 val update(val seq, val fun);
 val search(val seq, val key, val from, val to);