diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-11-02 19:47:20 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-11-02 19:47:20 +0000 |
commit | b7a7750adf5f96c46005e1a97503aa3a105d532d (patch) | |
tree | 2e39da79ab0789172a6c40b958910dd5beca5edb /libguile/gc-card.c | |
parent | df47dca3143cff2040424d1d837290999e00dceb (diff) | |
download | guile-b7a7750adf5f96c46005e1a97503aa3a105d532d.tar.gz |
Do no longer handle old-style uniform vectors.
Diffstat (limited to 'libguile/gc-card.c')
-rw-r--r-- | libguile/gc-card.c | 18 |
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) { |