diff options
| -rw-r--r-- | libguile/ChangeLog | 5 | ||||
| -rw-r--r-- | libguile/gc-card.c | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 482263449..e7f6572a3 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,8 @@ +2006-01-18 Han-Wen Nienhuys <hanwen@xs4all.nl> + + * gc-card.c ("sweep_card"): don't count scm_tc_free_cell for + free_count. + 2005-11-29 Han-Wen Nienhuys <hanwen@xs4all.nl> * regex-posix.c (s_scm_regexp_exec): list the offending pattern 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: { |