summaryrefslogtreecommitdiff
path: root/srfi/srfi-4.c
diff options
context:
space:
mode:
Diffstat (limited to 'srfi/srfi-4.c')
-rw-r--r--srfi/srfi-4.c40
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