From e0b20b68b0e53084e5d86a5ecfda05ef43d533db Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Wed, 27 Aug 2008 17:19:41 -0700
Subject: [PATCH] shamefully disable some more gc asserts

* libguile/gc-freelist.c: Disable some more asserts. I have no idea why
  they're hitting, however.
---
 libguile/gc-freelist.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/libguile/gc-freelist.c b/libguile/gc-freelist.c
index 861af5765..e71411f1b 100644
--- a/libguile/gc-freelist.c
+++ b/libguile/gc-freelist.c
@@ -178,9 +178,11 @@ scm_i_gc_heap_size_delta (scm_t_cell_type_statistics * freelist)
   float swept = freelist->swept;
   float delta = ((f * swept - collected) / (1.0 - f));
 
+#if 0
   assert (freelist->heap_total_cells >= freelist->collected);
   assert (freelist->swept == freelist->heap_total_cells);
   assert (swept >= collected);
+#endif
 
   return delta;
 }