From a2665d2f02ce417851719f07c9e88bd642d59641 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 3 Feb 2014 15:12:29 -0800 Subject: * lib.c (nullp): Function removed. * lib.h (nullp): New inline function. (eq): Removed useless parentheses: it's not a macro. --- ChangeLog | 7 +++++++ lib.c | 5 ----- lib.h | 5 +++-- 3 files changed, 10 insertions(+), 7 deletions(-) diff --git a/ChangeLog b/ChangeLog index 6b569dd2..3332e7a5 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2014-02-03 Kaz Kylheku + + * lib.c (nullp): Function removed. + + * lib.h (nullp): New inline function. + (eq): Removed useless parentheses: it's not a macro. + 2014-02-03 Kaz Kylheku * eval.c (op_modplace): Fixing a few argument count mismatches diff --git a/lib.c b/lib.c index 09ca61c6..3f01ab85 100644 --- a/lib.c +++ b/lib.c @@ -1418,11 +1418,6 @@ val consp(val obj) return (ty == CONS || ty == LCONS) ? t : nil; } -val nullp(val obj) -{ - return obj == 0 ? t : nil; -} - val atom(val obj) { return if3(consp(obj), nil, t); 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. */ -- cgit v1.2.3