summaryrefslogtreecommitdiff
path: root/libguile
diff options
context:
space:
mode:
Diffstat (limited to 'libguile')
-rw-r--r--libguile/eq.c5
-rw-r--r--libguile/evalext.c3
-rw-r--r--libguile/gc-card.c13
-rw-r--r--libguile/gc-mark.c4
-rw-r--r--libguile/objects.c3
-rw-r--r--libguile/print.c5
6 files changed, 0 insertions, 33 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))
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 "