mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

Replaced all uses of deprecated SCM_FALSEP, SCM_NFALSEP, SCM_BOOL,

Browse source 
SCM_NEGATE_BOOL, and SCM_BOOLP with scm_is_false, scm_is_true,
scm_from_bool, and scm_is_bool, respectively.
This commit is contained in:
Marius Vollmer 2004-07-06 11:02:47 +00:00
parent 054ebf6ca5
commit 00874d5fb0
5 changed files with 69 additions and 69 deletions
Download patch file Download diff file Expand all files Collapse all files

40
srfi/srfi-4.c
View file

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