* arith.c (evenp, oddp): New functions.

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

* lib.h (evenp, oddp): Declared.

* txr.1: Documentation stub updated.

1 files changed, 2 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 30a1beed..c886e89f 100644
--- a/eval.c
+++ b/eval.c
@@ -1166,6 +1166,8 @@ void eval_init(void)
   reg_fun(intern(lit("numberp"), user_package), func_n1(numberp));
 
   reg_fun(intern(lit("zerop"), user_package), func_n1(zerop));
+  reg_fun(intern(lit("evenp"), user_package), func_n1(evenp));
+  reg_fun(intern(lit("oddp"), user_package), func_n1(oddp));
   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));