* arith.c (exptmod, gcd): New functions.

* eval.c (eval_init): New functions registered as intrisics.

* lib.h (exptmod, gcd): Declared.

* txr.1: Documentation stubs added.

1 files changed, 2 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index e206184e..a3d6019d 100644
--- a/lib.h
+++ b/lib.h
@@ -391,7 +391,9 @@ val maxv(val first, val rest);
 val minv(val first, val rest);
 val expt(val base, val exp);
 val exptv(val nlist);
+val exptmod(val base, val exp, val mod);
 val isqrt(val anum);
+val gcd(val anum, val bnum);
 val string_own(wchar_t *str);
 val string(const wchar_t *str);
 val string_utf8(const char *str);