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 f4e992e14..b8d512aaa 100644 --- a/libguile/vectors.c +++ b/libguile/vectors.c @@ -88,13 +88,13 @@ scm_vector_set_length_x (SCM vect, SCM len) default: badarg1: scm_wta (vect, (char *) SCM_ARG1, s_vector_set_length_x); case scm_tc7_string: - SCM_ASRTGO (vect != scm_nullstr, badarg1); + SCM_ASRTGO (!SCM_EQ_P (vect, scm_nullstr), badarg1); sz = sizeof (char); l++; break; case scm_tc7_vector: case scm_tc7_wvect: - SCM_ASRTGO (vect != scm_nullvect, badarg1); + SCM_ASRTGO (!SCM_EQ_P (vect, scm_nullvect), badarg1); sz = sizeof (SCM); break; } |