summaryrefslogtreecommitdiff
path: root/libguile/vectors.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/vectors.c')
-rw-r--r--libguile/vectors.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/vectors.c b/libguile/vectors.c
index efcd98405..894a8320e 100644
--- a/libguile/vectors.c
+++ b/libguile/vectors.c
@@ -35,7 +35,7 @@ SCM_DEFINE (scm_vector_p, "vector?", 1, 0, 0,
"@code{#f}.")
#define FUNC_NAME s_scm_vector_p
{
- return SCM_BOOL (SCM_VECTORP (obj));
+ return scm_from_bool (SCM_VECTORP (obj));
}
#undef FUNC_NAME
@@ -245,7 +245,7 @@ scm_vector_equal_p(SCM x, SCM y)
{
long i;
for(i = SCM_VECTOR_LENGTH (x) - 1; i >= 0; i--)
- if (SCM_FALSEP (scm_equal_p (SCM_VELTS (x)[i], SCM_VELTS (y)[i])))
+ if (scm_is_false (scm_equal_p (SCM_VELTS (x)[i], SCM_VELTS (y)[i])))
return SCM_BOOL_F;
return SCM_BOOL_T;
}