* lib.c (nullp): Function removed.

* lib.h (nullp): New inline function.
(eq): Removed useless parentheses: it's not a macro.

1 files changed, 3 insertions, 2 deletions

diff --git a/lib.h b/lib.h
index 37282579..dfc68db0 100644
--- a/lib.h
+++ b/lib.h
@@ -424,7 +424,6 @@ val make_half_lazy_cons(val func, val car);
 val lcons_fun(val lcons);
 val list(val first, ...); /* terminated by nao */
 val consp(val obj);
-val nullp(val obj);
 val atom(val obj);
 val listp(val obj);
 val proper_listp(val obj);
@@ -712,7 +711,9 @@ void breakpt(void);
 
 #define nil ((obj_t *) 0)
 
-INLINE val eq(val a, val b) { return ((a) == (b) ? t : nil); }
+INLINE val eq(val a, val b) { return a == b ? t : nil; }
+
+INLINE val nullp(val v) { return v ? nil : t; }
 
 #define nao ((obj_t *) (1 << TAG_SHIFT)) /* "not an object" sentinel value. */