From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 22 May 2011 21:12:18 +0000 (+0000)
Subject: Use MAKE-STRONG-EQV-HASH-TABLE for Swank inspector parts.
X-Git-Tag: 20110609-Gtk~1^2~9
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ca391c7c744559b4e6f86716d6f08f8de80d4d87;p=mit-scheme.git

Use MAKE-STRONG-EQV-HASH-TABLE for Swank inspector parts.

Don't use deprecated MAKE-EQV-HASH-TABLE.

Keys are numbers anyway, so this may as well be strong.
---

diff --git a/src/runtime/swank.scm b/src/runtime/swank.scm
index d1ad53f57..d52c2489d 100644
--- a/src/runtime/swank.scm
+++ b/src/runtime/swank.scm
@@ -759,7 +759,7 @@ swank:xref
 (define (inspect-object o)
   (let ((previous istate)
 	(content (inspect o))
-	(parts (make-eqv-hash-table)))
+	(parts (make-strong-eqv-hash-table)))
     (set! istate (make-istate o parts #f previous content))
     (if previous (set-istate-next! previous istate))
     (istate->elisp istate)))