From ceef3208343fc1d65db106974220036eda1e99d5 Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@red-bean.com>
Date: Sat, 5 Dec 1998 16:52:34 +0000
Subject: [PATCH] * smob.c (freeprint): New function. (freecell): Use it to
 print freed objects, for slightly easier debugging.

---
 libguile/smob.c | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/libguile/smob.c b/libguile/smob.c
index 76d936a20..4bf826fc2 100644
--- a/libguile/smob.c
+++ b/libguile/smob.c
@@ -84,14 +84,29 @@ scm_newsmob (smob)
   return scm_tc7_smob + (scm_numsmob - 1) * 256;
 }
 
+
 /* {Initialization for i/o types, float, bignum, the type of free cells}
  */
 
+static int
+freeprint (SCM exp,
+	   SCM port,
+	   scm_print_state *pstate)
+{
+  char buf[100];
+
+  sprintf (buf, "#<freed cell %p; GC missed a reference>", (void *) exp);
+  scm_puts (buf, port);
+
+  return 1;
+}
+
+
 static scm_smobfuns freecell =
 {
   0,
   scm_free0,
-  0,
+  freeprint,
   0
 };