summaryrefslogtreecommitdiff
path: root/libguile/gc-card.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/gc-card.c')
-rw-r--r--libguile/gc-card.c13
1 files changed, 0 insertions, 13 deletions
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)
{