mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 01:30:27 +02:00
Code Activity

Do no longer handle scm_tc7_bvect bitvectors.

Browse source
This commit is contained in:
Marius Vollmer 2004-11-09 16:14:22 +00:00
parent 6cf0f51de8
commit 241b64d63f
6 changed files with 0 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/eq.c
View file

@ -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))