diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-11-09 16:14:22 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-11-09 16:14:22 +0000 |
commit | 241b64d63f69caaf940cc4c3f51384d9e437634e (patch) | |
tree | b2e09d5e053f6f329292ab451fb231d157ecd274 /libguile/eq.c | |
parent | 6cf0f51de86168509f730578421864d76cb3d7e0 (diff) | |
download | guile-241b64d63f69caaf940cc4c3f51384d9e437634e.tar.gz |
Do no longer handle scm_tc7_bvect bitvectors.
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)) |