summaryrefslogtreecommitdiffstats
path: root/eval.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2011-12-11 23:16:44 -0800
committerKaz Kylheku <kaz@kylheku.com>2011-12-11 23:16:44 -0800
commit770b69a7495f5e1f83eaf0c5de5782a3db90ad7b (patch)
treea600dd018c53ac6394932f9c1b96007ce77e7eaf /eval.c
parent98d7a0cf623fb0e34ee00017909a315a32a8de38 (diff)
downloadtxr-770b69a7495f5e1f83eaf0c5de5782a3db90ad7b.tar.gz
txr-770b69a7495f5e1f83eaf0c5de5782a3db90ad7b.tar.bz2
txr-770b69a7495f5e1f83eaf0c5de5782a3db90ad7b.zip
* arith.c (zerop, gt, lt, ge, le): Functions from lib.c reimplemented
with bignum support. * eval.c (eval_init): Added bignump and zerop as intrinsic function. Renamed numberp to fixnump. * lib.c (zerop, gt, lt, ge, le): Functions removed. (numeq): Unused function removed. * lib.h (numeq): Declaration removed. * txr.1: Sections for zerop and bignump created. Changed reference to numberp to fixnump.
Diffstat (limited to 'eval.c')
-rw-r--r--eval.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/eval.c b/eval.c
index 9f9ce124..81ece344 100644
--- a/eval.c
+++ b/eval.c
@@ -1157,7 +1157,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("fixnump"), user_package), func_n1(fixnump));
+ reg_fun(intern(lit("bignump"), user_package), func_n1(bignump));
+ reg_fun(intern(lit("zerop"), user_package), func_n1(zerop));
reg_fun(intern(lit(">"), user_package), func_n1v(gtv));
reg_fun(intern(lit("<"), user_package), func_n1v(ltv));
reg_fun(intern(lit(">="), user_package), func_n1v(gev));