Fix omission: the / function becomes n-ary.

* eval.c (eval_init): Register / function to divv instead of divi.

* lib.c (divv): New function.

* lib.h (divv): Declared.

* txr.1: Documented.

1 files changed, 17 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index c0c8b5de..2000349c 100644
--- a/lib.c
+++ b/lib.c
@@ -2650,6 +2650,23 @@ val mulv(struct args *nlist)
   return nary_op(mul, nlist, one);
 }
 
+val divv(val dividend, struct args *nlist)
+{
+  cnum index = 0;
+  val fi;
+
+  if (!args_more(nlist, 0))
+    return divi(one, dividend);
+
+  fi = args_get(nlist, &index);
+
+  if (!args_more(nlist, 0))
+    return divi(dividend, fi);
+
+  return reduce_left(func_n2(divi), args_get_list(nlist),
+                     divi(dividend, fi), nil);
+}
+
 val logandv(struct args *nlist)
 {
   return nary_op(logand, nlist, negone);