From 901f7e6c7588b86cbd63172a4871be22bb024b6d Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 13 Dec 2011 20:00:49 -0800 Subject: * 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. --- eval.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'eval.c') diff --git a/eval.c b/eval.c index c886e89f..eedd2d56 100644 --- a/eval.c +++ b/eval.c @@ -1160,7 +1160,9 @@ void eval_init(void) reg_fun(intern(lit("trunc"), user_package), func_n2(trunc)); reg_fun(intern(lit("mod"), user_package), func_n2(mod)); reg_fun(intern(lit("expt"), user_package), func_n0v(exptv)); + reg_fun(intern(lit("exptmod"), user_package), func_n3(exptmod)); reg_fun(intern(lit("sqrt"), user_package), func_n1(isqrt)); + reg_fun(intern(lit("gcd"), user_package), func_n2(gcd)); reg_fun(intern(lit("fixnump"), user_package), func_n1(fixnump)); reg_fun(intern(lit("bignump"), user_package), func_n1(bignump)); reg_fun(intern(lit("numberp"), user_package), func_n1(numberp)); -- cgit v1.2.3