* 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/eval.c b/eval.c
index a3272d6a..1cfb10f2 100644
--- a/eval.c
+++ b/eval.c
@@ -3654,6 +3654,7 @@ void eval_init(void)
   reg_fun(intern(lit("flatten*"), user_package), func_n1(lazy_flatten));
   reg_fun(intern(lit("tuples"), user_package), func_n3o(tuples, 2));
   reg_fun(intern(lit("partition-by"), user_package), func_n2(partition_by));
+  reg_fun(intern(lit("partition"), user_package), func_n2(partition));
   reg_fun(memq_s, func_n2(memq));
   reg_fun(memql_s, func_n2(memql));
   reg_fun(memqual_s, func_n2(memqual));