diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2011-12-13 20:00:49 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2011-12-13 20:00:49 -0800 |
| commit | 901f7e6c7588b86cbd63172a4871be22bb024b6d (patch) | |
| tree | 05ed4b47f6a035d1ceab458fefc3bfc4724c73e8 /eval.c | |
| parent | 64b06932ed7d8dd8c904e66a70a53ae4c8ec4448 (diff) | |
| download | txr-901f7e6c7588b86cbd63172a4871be22bb024b6d.tar.gz txr-901f7e6c7588b86cbd63172a4871be22bb024b6d.tar.bz2 txr-901f7e6c7588b86cbd63172a4871be22bb024b6d.zip | |
* 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.
Diffstat (limited to 'eval.c')
| -rw-r--r-- | eval.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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)); |