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.c18
1 files changed, 2 insertions, 16 deletions
diff --git a/libguile/gc-card.c b/libguile/gc-card.c
index c23e0ba17..9799b872d 100644
--- a/libguile/gc-card.c
+++ b/libguile/gc-card.c
@@ -144,7 +144,7 @@ scm_i_sweep_card (scm_t_cell * p, SCM *free_list, scm_t_heap_segment*seg)
"compiled closure");
break;
#endif
-#if SCM_HAVE_ARRAYS
+
case scm_tc7_bvect:
{
unsigned long int length = SCM_BITVECTOR_LENGTH (scmptr);
@@ -157,21 +157,7 @@ scm_i_sweep_card (scm_t_cell * p, SCM *free_list, scm_t_heap_segment*seg)
}
}
break;
- case scm_tc7_ivect:
- case scm_tc7_uvect:
- case scm_tc7_svect:
-#if SCM_SIZEOF_LONG_LONG != 0
- case scm_tc7_llvect:
-#endif
- case scm_tc7_fvect:
- case scm_tc7_dvect:
- case scm_tc7_cvect:
- scm_gc_free (SCM_UVECTOR_BASE (scmptr),
- (SCM_UVECTOR_LENGTH (scmptr)
- * scm_uniform_element_size (scmptr)),
- "vector");
- break;
-#endif
+
case scm_tc7_number:
switch SCM_TYP16 (scmptr)
{