Do no longer handle scm_tc7_bvect bitvectors.

diff --git a/libguile/eq.c b/libguile/eq.c
index 6d88e05..beb2739 100644 (file)
--- 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 afdfe78..0dd5ac0 100644 (file)
--- 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 9799b87..955efc8 100644 (file)
--- 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 c32183f..89501e6 100644 (file)
--- 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 7da05e6..060ebb0 100644 (file)
--- 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 d3e5b5a..d868911 100644 (file)
--- 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 "