diff options
Diffstat (limited to 'libguile/eq.c')
-rw-r--r-- | libguile/eq.c | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/libguile/eq.c b/libguile/eq.c index 6d88e0512..beb2739a9 100644 --- a/libguile/eq.c +++ b/libguile/eq.c @@ -204,11 +204,6 @@ SCM_PRIMITIVE_GENERIC_1 (scm_equal_p, "equal?", scm_tc7_rpsubr, case scm_tc7_vector: case scm_tc7_wvect: return scm_vector_equal_p (x, y); -#if SCM_HAVE_ARRAYS - case scm_tc7_bvect: - if (scm_tc16_array && scm_smobs[SCM_TC2SMOBNUM (scm_tc16_array)].equalp) - return scm_array_equal_p (x, y); -#endif } generic_equal: if (SCM_UNPACK (g_scm_equal_p)) |