diff options
Diffstat (limited to 'libguile/vectors.c')
-rw-r--r-- | libguile/vectors.c | 4 |
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; } |