diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2011-12-11 23:16:44 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2011-12-11 23:16:44 -0800 |
| commit | 770b69a7495f5e1f83eaf0c5de5782a3db90ad7b (patch) | |
| tree | a600dd018c53ac6394932f9c1b96007ce77e7eaf /eval.c | |
| parent | 98d7a0cf623fb0e34ee00017909a315a32a8de38 (diff) | |
| download | txr-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.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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)); |