New Cartesian product mapping functions.

* eval.c (prod_common): New static function.
(maprodv, maprendv): New functions.
(eval_init): Registered maprod and maprend intrinsics.

* eval.h (maprodv, maprendv): Declared.

* txr.1: Documented.

1 files changed, 2 insertions, 0 deletions

diff --git a/eval.h b/eval.h
index 4fb46426..f77a14ce 100644
--- a/eval.h
+++ b/eval.h
@@ -80,6 +80,8 @@ val bindable(val obj);
 val mapcarv(val fun, struct args *lists);
 val mapcarl(val fun, val list_of_lists);
 val lazy_mapcar(val fun, val list);
+val maprodv(val fun, struct args *lists);
+val maprendv(val fun, struct args *lists);
 val generate(val while_pred, val gen_fun);
 val retf(val ret);
 val prinl(val obj, val stream);