From 9a09deb1c31529e4710dec3badc860ca1cd466af Mon Sep 17 00:00:00 2001 From: Dirk Herrmann Date: Mon, 5 Jun 2000 11:39:46 +0000 Subject: * Removed SCM_TRUE_P since it may get confused with !SCM_FALSEP. --- libguile/boolean.h | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'libguile/boolean.h') diff --git a/libguile/boolean.h b/libguile/boolean.h index e27c56f4b..ddbd69da9 100644 --- a/libguile/boolean.h +++ b/libguile/boolean.h @@ -50,11 +50,10 @@ /* Boolean Values * */ -#define SCM_TRUE_P(x) (SCM_EQ_P ((x), SCM_BOOL_T)) #define SCM_FALSEP(x) (SCM_EQ_P ((x), SCM_BOOL_F)) #define SCM_NFALSEP(x) (!SCM_FALSEP (x)) -#define SCM_BOOLP(x) (SCM_TRUE_P (x) || SCM_FALSEP (x)) +#define SCM_BOOLP(x) (SCM_EQ_P ((x), SCM_BOOL_F) || SCM_EQ_P ((x), SCM_BOOL_T)) /* Convert from a C boolean to a SCM boolean value */ #define SCM_BOOL(f) ((f) ? SCM_BOOL_T : SCM_BOOL_F) -- cgit v1.2.1