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 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;
}