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.c1
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:
{