New negated equality test functions.

* eval.c (eval_init): Register neq, neql and nequal
intrinsics.

* lib.h (neq, neql, nequal): New inline functions.

* txr.1: Documented neq, neql and nequal

1 files changed, 3 insertions, 1 deletions

diff --git a/lib.h b/lib.h
index 50ee8640..34c6b59d 100644
--- a/lib.h
+++ b/lib.h
@@ -1017,7 +1017,9 @@ void breakpt(void);
 #define nil convert(obj_t *, 0)
 
 INLINE val eq(val a, val b) { return a == b ? t : nil; }
-
+INLINE val neq(val a, val b) { return a != b ? t : nil; }
+INLINE val neql(val left, val right) { return eql(left, right) ? nil : t; }
+INLINE val nequal(val left, val right) { return equal(left, right) ? nil : t; }
 INLINE val null(val v) { return v ? nil : t; }
 
 #define nilp(o) ((o) == nil)