summaryrefslogtreecommitdiff
path: root/libguile/gc-card.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-11-02 19:47:20 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-11-02 19:47:20 +0000
commitb7a7750adf5f96c46005e1a97503aa3a105d532d (patch)
tree2e39da79ab0789172a6c40b958910dd5beca5edb /libguile/gc-card.c
parentdf47dca3143cff2040424d1d837290999e00dceb (diff)
downloadguile-b7a7750adf5f96c46005e1a97503aa3a105d532d.tar.gz
Do no longer handle old-style uniform vectors.
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)
{