diff options
Diffstat (limited to 'libguile/gc-card.c')
-rw-r--r-- | libguile/gc-card.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/gc-card.c b/libguile/gc-card.c index b97989916..9fad48416 100644 --- 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: { |