* eval.c (eval_init): Register intrinsic partition function.

* lib.c (partition_func): New static function.
(partition): New function.

* lib.h (partition): Declared.

* txr.1: Documented partition.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index ae173621..63e72c3c 100644
--- a/lib.h
+++ b/lib.h
@@ -445,6 +445,7 @@ val flatten(val list);
 val lazy_flatten(val list);
 val tuples(val n, val seq, val fill);
 val partition_by(val func, val seq);
+val partition(val seq, val indices);
 val memq(val obj, val list);
 val memql(val obj, val list);
 val memqual(val obj, val list);