diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-06-05 11:39:46 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-06-05 11:39:46 +0000 |
commit | 9a09deb1c31529e4710dec3badc860ca1cd466af (patch) | |
tree | ada8db2350a0114a0d8d17eca63050c8d2620526 /libguile/boolean.h | |
parent | 1f496b05af0b75a9ba5b4ee0e7f59b6fa4607a27 (diff) | |
download | guile-9a09deb1c31529e4710dec3badc860ca1cd466af.tar.gz |
* Removed SCM_TRUE_P since it may get confused with !SCM_FALSEP.
Diffstat (limited to 'libguile/boolean.h')
-rw-r--r-- | libguile/boolean.h | 3 |
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) |