diff options
author | Han-Wen Nienhuys <hanwen@lilypond.org> | 2006-01-18 10:17:30 +0000 |
---|---|---|
committer | Han-Wen Nienhuys <hanwen@lilypond.org> | 2006-01-18 10:17:30 +0000 |
commit | 2ca2ffe6b26556dc01677fe0e360f46f30ca8cfd (patch) | |
tree | 7eb8585134ed0353c36bc3190364faced8afe252 /libguile/gc-card.c | |
parent | 27d64e2b4a082e58338bb99f4e756469d857a70d (diff) | |
download | guile-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.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: { |