From c547316cbfa514fd793a147c6f2e5aa5d5e0e283 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 13 Dec 2018 06:28:50 -0800 Subject: nzerop: new function. * arith.c (nzerop): New function. * eval.c (eval_init): Register nzerop intrinsic. * lib.h (nzerop): Declared. * txr.1: Documented. --- eval.c | 1 + 1 file changed, 1 insertion(+) (limited to 'eval.c') diff --git a/eval.c b/eval.c index b26dc5b1..9cfeba03 100644 --- a/eval.c +++ b/eval.c @@ -6445,6 +6445,7 @@ 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("nzerop"), user_package), func_n1(nzerop)); reg_fun(intern(lit("plusp"), user_package), func_n1(plusp)); reg_fun(intern(lit("minusp"), user_package), func_n1(minusp)); reg_fun(intern(lit("evenp"), user_package), func_n1(evenp)); -- cgit v1.2.3