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, 1 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index e83a8954..34d73304 100644
--- a/eval.c
+++ b/eval.c
@@ -4776,7 +4776,7 @@ void eval_init(void)
   reg_fun(intern(lit("trunc-rem"), user_package), func_n2(trunc_rem));
   reg_fun(intern(lit("wrap"), user_package), func_n3(wrap));
   reg_fun(intern(lit("wrap*"), user_package), func_n3(wrap_star));
-  reg_fun(intern(lit("/"), user_package), func_n2o(divi, 1));
+  reg_fun(intern(lit("/"), user_package), func_n1v(divv));
   reg_fun(intern(lit("expt"), user_package), func_n0v(exptv));
   reg_fun(intern(lit("exptmod"), user_package), func_n3(exptmod));
   reg_fun(intern(lit("isqrt"), user_package), func_n1(isqrt));