mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 01:00:20 +02:00
Code Activity

(scm_is_true, scm_is_false, scm_from_bool, scm_to_bool): New.

Browse source
This commit is contained in:
Marius Vollmer 2004-07-05 17:13:39 +00:00
parent e4e249c1b8
commit 3a684cc6c9
2 changed files with 23 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/boolean.h
View file

@ -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 */