("sweep_card"): don't count scm_tc_free_cell for

[bpt/guile.git] / libguile / gc-card.c

diff --git a/libguile/gc-card.c b/libguile/gc-card.c
index b979899..9fad484 100644 (file)
--- a/libguile/gc-card.c
+++ b/libguile/gc-card.c
@@ -215,6 +215,7 @@ scm_i_sweep_card (scm_t_cell *  p, SCM *free_list, scm_t_heap_segment*seg)
          switch SCM_TYP16 (scmptr)
            {
            case scm_tc_free_cell:
+             free_count --;
              break;
            default:
              {