From d01a12405fbffb6a68345f72a510bf9e25e8ef95 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 1 Nov 2016 20:55:46 -0700
Subject: 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
---
 lib.h | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'lib.h')

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)
-- 
cgit v1.2.3