summaryrefslogtreecommitdiff
path: root/libguile/eq.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-11-09 16:14:22 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-11-09 16:14:22 +0000
commit241b64d63f69caaf940cc4c3f51384d9e437634e (patch)
treeb2e09d5e053f6f329292ab451fb231d157ecd274 /libguile/eq.c
parent6cf0f51de86168509f730578421864d76cb3d7e0 (diff)
downloadguile-241b64d63f69caaf940cc4c3f51384d9e437634e.tar.gz
Do no longer handle scm_tc7_bvect bitvectors.
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))