From 2ca2ffe6b26556dc01677fe0e360f46f30ca8cfd Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@lilypond.org>
Date: Wed, 18 Jan 2006 10:17:30 +0000
Subject: [PATCH] ("sweep_card"): don't count scm_tc_free_cell for free_count.

---
 libguile/ChangeLog | 5 +++++
 libguile/gc-card.c | 1 +
 2 files changed, 6 insertions(+)

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