diff options
Diffstat (limited to 'libguile/vectors.c')
-rw-r--r-- | libguile/vectors.c | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/libguile/vectors.c b/libguile/vectors.c index 920ead10e..8c0e15d3b 100644 --- a/libguile/vectors.c +++ b/libguile/vectors.c @@ -47,14 +47,7 @@ int scm_is_vector (SCM obj) { - if (SCM_I_IS_VECTOR (obj)) - return 1; - if (SCM_I_ARRAYP (obj) && SCM_I_ARRAY_NDIM (obj) == 1) - { - SCM v = SCM_I_ARRAY_V (obj); - return SCM_I_IS_VECTOR (v); - } - return 0; + return SCM_I_IS_VECTOR (obj); } int |