From 84a4f3f006b4fac8ba9f773fabeba9f0ebe85f62 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 28 Dec 2010 16:14:17 -0700
Subject: [PATCH] remove a forced GC (surely a bad idea) in the weak-hash
 implementation

---
 src/racket/src/hash.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/racket/src/hash.c b/src/racket/src/hash.c
index 29ec9d98d2..008d3a8927 100644
--- a/src/racket/src/hash.c
+++ b/src/racket/src/hash.c
@@ -654,8 +654,9 @@ get_bucket (Scheme_Bucket_Table *table, const char *key, int add, Scheme_Bucket
     if (table->weak && (table->size > 4096)) {
       int actual = 0;
 
-      /* Forced GC: so that the new table is as small as possible. */
-      scheme_collect_garbage();
+      /* It might be nice to force a GC so that the new table is
+         as small as possible, but that's too expensive. */
+      /* scheme_collect_garbage(); */
 
       /* Check actual count: */
       for (i = 0; i < oldsize; i++) {