summaryrefslogtreecommitdiff
path: root/libguile/gc-card.c
diff options
context:
space:
mode:
authorHan-Wen Nienhuys <hanwen@lilypond.org>2006-01-18 10:17:30 +0000
committerHan-Wen Nienhuys <hanwen@lilypond.org>2006-01-18 10:17:30 +0000
commit2ca2ffe6b26556dc01677fe0e360f46f30ca8cfd (patch)
tree7eb8585134ed0353c36bc3190364faced8afe252 /libguile/gc-card.c
parent27d64e2b4a082e58338bb99f4e756469d857a70d (diff)
downloadguile-2ca2ffe6b26556dc01677fe0e360f46f30ca8cfd.tar.gz
("sweep_card"): don't count scm_tc_free_cell for
free_count.
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:
{