Block system asyncs while 'overrides_lock' is held.

[bpt/guile.git] / libguile / eq.c

diff --git a/libguile/eq.c b/libguile/eq.c
index d286d5c..02ce0a9 100644 (file)
--- a/libguile/eq.c
+++ b/libguile/eq.c
@@ -358,6 +358,8 @@ scm_equal_p (SCM x, SCM y)
       return scm_bytevector_eq_p (x, y);
     case scm_tc7_array:
       return scm_array_equal_p (x, y);
+    case scm_tc7_bitvector:
+      return scm_i_bitvector_equal_p (x, y);
     case scm_tc7_vector:
     case scm_tc7_wvect:
       return scm_i_vector_equal_p (x, y);