New divides function.

* arith.c (divides): New function.
(arith_init): Intrinsic registered.

* arith.h (divides): Declared.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/arith.h b/arith.h
index 29e65706..235d4ba1 100644
--- a/arith.h
+++ b/arith.h
@@ -39,6 +39,7 @@ val unum(ucnum u);
 val cum_norm_dist(val x);
 val n_choose_k(val n, val k);
 val n_perm_k(val n, val k);
+val divides(val d, val n);
 val tofloat(val obj);
 val toint(val obj, val base);
 val tofloatz(val obj);