* arith.c (to_float): Print function name as ~a rather than ~s,

so it doesn't have quotes around it.
(cum_norm_dist): New function.

* arith.h (cum_norm_dist): Declared.

* eval.c: Include arith.h.
(eval_init): Register cum_norm_dist as intrinsic.

* txr.1: Documented cum-norm-dist.

1 files changed, 1 insertions, 0 deletions

diff --git a/arith.h b/arith.h
index 79dcc327..ef341707 100644
--- a/arith.h
+++ b/arith.h
@@ -30,4 +30,5 @@ val bignum_from_long(long l);
 int highest_bit(int_ptr_t n);
 val normalize(val bignum);
 val in_int_ptr_range(val bignum);
+val cum_norm_dist(val x);
 void arith_init(void);