New function: inverse of cumulative normal dist.

* arith.c (inv_cum_norm): New function.

* arith.h (inv_cum_norm): Declared.

* eval.c (eval_init): Register inv-cum-norm intrinsic.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index a614335d..1aa56866 100644
--- a/eval.c
+++ b/eval.c
@@ -5903,6 +5903,7 @@ void eval_init(void)
   reg_fun(intern(lit("exp"), user_package), func_n1(expo));
   reg_fun(intern(lit("sqrt"), user_package), func_n1(sqroot));
   reg_fun(intern(lit("cum-norm-dist"), user_package), func_n1(cum_norm_dist));
+  reg_fun(intern(lit("inv-cum-norm"), user_package), func_n1(inv_cum_norm));
   reg_fun(intern(lit("n-choose-k"), user_package), func_n2(n_choose_k));
   reg_fun(intern(lit("n-perm-k"), user_package), func_n2(n_perm_k));
   reg_fun(intern(lit("fixnump"), user_package), func_n1(fixnump));