Add sum and prod convenience functions.

* eval.c (eval_init): prod and sum intrinsics registered.

* lib.c (sum, prod): New functions.

* lib.h (sum, prod): Declared.

* txr.1: Documented.

1 files changed, 2 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index c1a898c2..6df5a914 100644
--- a/lib.h
+++ b/lib.h
@@ -691,6 +691,8 @@ val gev(val first, struct args *rest);
 val lev(val first, struct args *rest);
 val numeqv(val first, struct args *rest);
 val numneqv(struct args *list);
+val sum(val seq);
+val prod(val seq);
 val max2(val a, val b);
 val min2(val a, val b);
 val maxv(val first, struct args *rest);