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))
diff --git a/libguile/evalext.c b/libguile/evalext.c
index afdfe78fb..0dd5ac076 100644
--- a/libguile/evalext.c
+++ b/libguile/evalext.c
@@ -100,9 +100,6 @@ SCM_DEFINE (scm_self_evaluating_p, "self-evaluating?", 1, 0, 0,
 	case scm_tcs_closures:
 	case scm_tc7_vector:
 	case scm_tc7_wvect:
-#if SCM_HAVE_ARRAYS
-	case scm_tc7_bvect:
-#endif
 	case scm_tc7_number:
 	case scm_tc7_string:
 	case scm_tc7_smob:
diff --git a/libguile/gc-card.c b/libguile/gc-card.c
index 9799b872d..955efc868 100644
--- a/libguile/gc-card.c
+++ b/libguile/gc-card.c
@@ -145,19 +145,6 @@ scm_i_sweep_card (scm_t_cell *  p, SCM *free_list, scm_t_heap_segment*seg)
 	  break;
 #endif
 
-	case scm_tc7_bvect:
-	  {
-	    unsigned long int length = SCM_BITVECTOR_LENGTH (scmptr);
-	    if (length > 0)
-	      {
-		scm_gc_free (SCM_BITVECTOR_BASE (scmptr),
-			     (sizeof (long)
-			      * ((length+SCM_LONG_BIT-1) / SCM_LONG_BIT)),
-			     "vector");
-	      }
-	  }
-	  break;
-
 	case scm_tc7_number:
 	  switch SCM_TYP16 (scmptr)
             {
diff --git a/libguile/gc-mark.c b/libguile/gc-mark.c
index c32183fbe..89501e6eb 100644
--- a/libguile/gc-mark.c
+++ b/libguile/gc-mark.c
@@ -248,10 +248,6 @@ scm_gc_mark_dependencies (SCM p)
 	goto gc_mark_loop;
       }
 #endif
-#if SCM_HAVE_ARRAYS
-    case scm_tc7_bvect:
-      break;
-#endif
 
     case scm_tc7_string:
       ptr = scm_i_string_mark (ptr);
diff --git a/libguile/objects.c b/libguile/objects.c
index 7da05e69a..060ebb0b3 100644
--- a/libguile/objects.c
+++ b/libguile/objects.c
@@ -89,9 +89,6 @@ SCM_DEFINE (scm_class_of, "class-of", 1, 0, 0,
 	  return scm_class_symbol;
 	case scm_tc7_vector:
 	case scm_tc7_wvect:
-#if SCM_HAVE_ARRAYS
-	case scm_tc7_bvect:
-#endif
 	  return scm_class_vector;
 	case scm_tc7_string:
 	  return scm_class_string;
diff --git a/libguile/print.c b/libguile/print.c
index d3e5b5ae8..d8689111f 100644
--- a/libguile/print.c
+++ b/libguile/print.c
@@ -598,11 +598,6 @@ iprin1 (SCM exp, SCM port, scm_print_state *pstate)
 	  }
 	  EXIT_NESTED_DATA (pstate);
 	  break;
-#if SCM_HAVE_ARRAYS
-	case scm_tc7_bvect:
-	  scm_raprin1 (exp, port, pstate);
-	  break;
-#endif
 	case scm_tcs_subrs:
 	  scm_puts (SCM_SUBR_GENERIC (exp)
 		    ? "#<primitive-generic "