diff options
Diffstat (limited to 'libguile/boolean.c')
-rw-r--r-- | libguile/boolean.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/libguile/boolean.c b/libguile/boolean.c index 1f6b5b037..be4332806 100644 --- a/libguile/boolean.c +++ b/libguile/boolean.c @@ -23,6 +23,8 @@ #include "libguile/validate.h" #include "libguile/boolean.h" #include "libguile/lang.h" +#include "libguile/tags.h" + @@ -31,7 +33,7 @@ SCM_DEFINE (scm_not, "not", 1, 0, 0, "Return @code{#t} iff @var{x} is @code{#f}, else return @code{#f}.") #define FUNC_NAME s_scm_not { - return SCM_BOOL(SCM_FALSEP (x) || SCM_NILP (x)); + return scm_from_bool (scm_is_false (x) || SCM_NILP (x)); } #undef FUNC_NAME @@ -41,14 +43,14 @@ SCM_DEFINE (scm_boolean_p, "boolean?", 1, 0, 0, "Return @code{#t} iff @var{obj} is either @code{#t} or @code{#f}.") #define FUNC_NAME s_scm_boolean_p { - return SCM_BOOL (SCM_BOOLP (obj) || SCM_NILP (obj)); + return scm_from_bool (scm_is_bool (obj) || SCM_NILP (obj)); } #undef FUNC_NAME int scm_is_bool (SCM x) { - return scm_is_eq (x, SCM_BOOL_F) || scm_is_eq (SCM_BOOL_T); + return scm_is_eq (x, SCM_BOOL_F) || scm_is_eq (x, SCM_BOOL_T); } int |