diff options
Diffstat (limited to 'libguile/boolean.h')
-rw-r--r-- | libguile/boolean.h | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/libguile/boolean.h b/libguile/boolean.h index 982c950d6..63cc06006 100644 --- a/libguile/boolean.h +++ b/libguile/boolean.h @@ -47,10 +47,18 @@ ^ (SCM_UNPACK (SCM_BOOL_T) \ ^ SCM_UNPACK (SCM_BOOL_F)))) +#define scm_is_false(x) scm_is_eq ((x), SCM_BOOL_F) +#define scm_is_true(x) !scm_is_false (x) + +SCM_API int scm_is_bool(x); +#define scm_from_bool(x) ((f) ? SCM_BOOL_T : SCM_BOOL_F) +SCM_API int scm_to_bool (SCM x); + SCM_API SCM scm_not (SCM x); SCM_API SCM scm_boolean_p (SCM obj); + SCM_API void scm_init_boolean (void); #endif /* SCM_BOOLEAN_H */ |