summaryrefslogtreecommitdiff
path: root/libguile/eq.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/eq.c')
-rw-r--r--libguile/eq.c5
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))