diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-07-06 11:02:47 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-07-06 11:02:47 +0000 |
commit | 00874d5fb023fd68c03f0df33eccb6554da32ea2 (patch) | |
tree | 5e1a1f4c76be830c85dece096518ded28bd86ee4 /srfi/srfi-4.c | |
parent | 054ebf6ca539dee2bfc9965781313c0d32faa51f (diff) | |
download | guile-00874d5fb023fd68c03f0df33eccb6554da32ea2.tar.gz |
Replaced all uses of deprecated SCM_FALSEP, SCM_NFALSEP, SCM_BOOL,
SCM_NEGATE_BOOL, and SCM_BOOLP with scm_is_false, scm_is_true,
scm_from_bool, and scm_is_bool, respectively.
Diffstat (limited to 'srfi/srfi-4.c')
-rw-r--r-- | srfi/srfi-4.c | 40 |
1 files changed, 20 insertions, 20 deletions
diff --git a/srfi/srfi-4.c b/srfi/srfi-4.c index 4a37112ed..d6507551d 100644 --- a/srfi/srfi-4.c +++ b/srfi/srfi-4.c @@ -279,8 +279,8 @@ SCM_DEFINE (scm_u8vector_p, "u8vector?", 1, 0, 0, "@code{#f} otherwise.") #define FUNC_NAME s_scm_u8vector_p { - return SCM_BOOL (SCM_SMOB_PREDICATE (scm_tc16_uvec, obj) && - SCM_UVEC_TYPE (obj) == SCM_UVEC_U8); + return scm_from_bool (SCM_SMOB_PREDICATE (scm_tc16_uvec, obj) && + SCM_UVEC_TYPE (obj) == SCM_UVEC_U8); } #undef FUNC_NAME @@ -465,8 +465,8 @@ SCM_DEFINE (scm_s8vector_p, "s8vector?", 1, 0, 0, "@code{#f} otherwise.") #define FUNC_NAME s_scm_s8vector_p { - return SCM_BOOL (SCM_SMOB_PREDICATE (scm_tc16_uvec, obj) && - SCM_UVEC_TYPE (obj) == SCM_UVEC_S8); + return scm_from_bool (SCM_SMOB_PREDICATE (scm_tc16_uvec, obj) && + SCM_UVEC_TYPE (obj) == SCM_UVEC_S8); } #undef FUNC_NAME @@ -653,8 +653,8 @@ SCM_DEFINE (scm_u16vector_p, "u16vector?", 1, 0, 0, "@code{#f} otherwise.") #define FUNC_NAME s_scm_u16vector_p { - return SCM_BOOL (SCM_SMOB_PREDICATE (scm_tc16_uvec, obj) && - SCM_UVEC_TYPE (obj) == SCM_UVEC_U16); + return scm_from_bool (SCM_SMOB_PREDICATE (scm_tc16_uvec, obj) && + SCM_UVEC_TYPE (obj) == SCM_UVEC_U16); } #undef FUNC_NAME @@ -823,8 +823,8 @@ SCM_DEFINE (scm_s16vector_p, "s16vector?", 1, 0, 0, "@code{#f} otherwise.") #define FUNC_NAME s_scm_s16vector_p { - return SCM_BOOL (SCM_SMOB_PREDICATE (scm_tc16_uvec, obj) && - SCM_UVEC_TYPE (obj) == SCM_UVEC_S16); + return scm_from_bool (SCM_SMOB_PREDICATE (scm_tc16_uvec, obj) && + SCM_UVEC_TYPE (obj) == SCM_UVEC_S16); } #undef FUNC_NAME @@ -996,8 +996,8 @@ SCM_DEFINE (scm_u32vector_p, "u32vector?", 1, 0, 0, "@code{#f} otherwise.") #define FUNC_NAME s_scm_u32vector_p { - return SCM_BOOL (SCM_SMOB_PREDICATE (scm_tc16_uvec, obj) && - SCM_UVEC_TYPE (obj) == SCM_UVEC_U32); + return scm_from_bool (SCM_SMOB_PREDICATE (scm_tc16_uvec, obj) && + SCM_UVEC_TYPE (obj) == SCM_UVEC_U32); } #undef FUNC_NAME @@ -1167,8 +1167,8 @@ SCM_DEFINE (scm_s32vector_p, "s32vector?", 1, 0, 0, "@code{#f} otherwise.") #define FUNC_NAME s_scm_s32vector_p { - return SCM_BOOL (SCM_SMOB_PREDICATE (scm_tc16_uvec, obj) && - SCM_UVEC_TYPE (obj) == SCM_UVEC_S32); + return scm_from_bool (SCM_SMOB_PREDICATE (scm_tc16_uvec, obj) && + SCM_UVEC_TYPE (obj) == SCM_UVEC_S32); } #undef FUNC_NAME @@ -1340,8 +1340,8 @@ SCM_DEFINE (scm_u64vector_p, "u64vector?", 1, 0, 0, "@code{#f} otherwise.") #define FUNC_NAME s_scm_u64vector_p { - return SCM_BOOL (SCM_SMOB_PREDICATE (scm_tc16_uvec, obj) && - SCM_UVEC_TYPE (obj) == SCM_UVEC_U64); + return scm_from_bool (SCM_SMOB_PREDICATE (scm_tc16_uvec, obj) && + SCM_UVEC_TYPE (obj) == SCM_UVEC_U64); } #undef FUNC_NAME @@ -1511,8 +1511,8 @@ SCM_DEFINE (scm_s64vector_p, "s64vector?", 1, 0, 0, "@code{#f} otherwise.") #define FUNC_NAME s_scm_s64vector_p { - return SCM_BOOL (SCM_SMOB_PREDICATE (scm_tc16_uvec, obj) && - SCM_UVEC_TYPE (obj) == SCM_UVEC_S64); + return scm_from_bool (SCM_SMOB_PREDICATE (scm_tc16_uvec, obj) && + SCM_UVEC_TYPE (obj) == SCM_UVEC_S64); } #undef FUNC_NAME @@ -1684,8 +1684,8 @@ SCM_DEFINE (scm_f32vector_p, "f32vector?", 1, 0, 0, "@code{#f} otherwise.") #define FUNC_NAME s_scm_f32vector_p { - return SCM_BOOL (SCM_SMOB_PREDICATE (scm_tc16_uvec, obj) && - SCM_UVEC_TYPE (obj) == SCM_UVEC_F32); + return scm_from_bool (SCM_SMOB_PREDICATE (scm_tc16_uvec, obj) && + SCM_UVEC_TYPE (obj) == SCM_UVEC_F32); } #undef FUNC_NAME @@ -1880,8 +1880,8 @@ SCM_DEFINE (scm_f64vector_p, "f64vector?", 1, 0, 0, "@code{#f} otherwise.") #define FUNC_NAME s_scm_f64vector_p { - return SCM_BOOL (SCM_SMOB_PREDICATE (scm_tc16_uvec, obj) && - SCM_UVEC_TYPE (obj) == SCM_UVEC_F64); + return scm_from_bool (SCM_SMOB_PREDICATE (scm_tc16_uvec, obj) && + SCM_UVEC_TYPE (obj) == SCM_UVEC_F64); } #undef FUNC_NAME |