From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 20 Dec 2009 07:37:04 +0000 (-0500)
Subject: For SRFI 69's MAKE-HASH-TABLE, always yield strong hash tables.
X-Git-Tag: 20100708-Gtk~198
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=33b074a6f754a3fa5115796c4af4061b370a6fb5;p=mit-scheme.git

For SRFI 69's MAKE-HASH-TABLE, always yield strong hash tables.

SRFI 69 (intentionally) says nothing about weak references, and other
implementations always give strong hash tables.
---

diff --git a/src/runtime/hashtb.scm b/src/runtime/hashtb.scm
index da3eda0a5..816196018 100644
--- a/src/runtime/hashtb.scm
+++ b/src/runtime/hashtb.scm
@@ -776,10 +776,10 @@ USA.
   (cond ((and (eq? key=? eq?)
 	      (or (eq? key-hash eq-hash-mod)
 		  (eq? key-hash hash-by-identity)))
-	 (make-weak-rehash-type eq-hash-mod eq?))
+	 (make-strong-rehash-type eq-hash-mod eq?))
 	((and (eq? key=? eqv?)
 	      (eq? key-hash eqv-hash-mod))
-	 (make-weak-rehash-type eqv-hash-mod eqv?))
+	 (make-strong-rehash-type eqv-hash-mod eqv?))
 	((and (eq? key=? equal?)
 	      (or (eq? key-hash equal-hash-mod)
 		  (eq? key-hash hash)))