* arith.c (zerop): Handle character arguments.

(plusp, minusp): New functions.

* eval.c (eval_init): Register plusp and minusp.

* lib.h (plusp, minusp): Declared.

* txr.1: Documented plusp and minusp, and the
handling of characters by zerop.

1 files changed, 2 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index e55a3516..378973e6 100644
--- a/lib.h
+++ b/lib.h
@@ -545,6 +545,8 @@ val wrap_star(val start, val end, val num);
 val wrap(val start, val end, val num);
 val divi(val anum, val bnum);
 val zerop(val num);
+val plusp(val num);
+val minusp(val num);
 val evenp(val num);
 val oddp(val num);
 val succ(val num);