summaryrefslogtreecommitdiff
path: root/libguile/boolean.h
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/boolean.h')
-rw-r--r--libguile/boolean.h3
1 files changed, 1 insertions, 2 deletions
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)