diff options
Diffstat (limited to 'libguile/gc-card.c')
-rw-r--r-- | libguile/gc-card.c | 13 |
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) { |