From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 10 Jan 2018 04:30:12 +0000 (-0800)
Subject: Use weak hash tables for predicate lattice.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~386
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=61b739b61c87d11fb90914c856e162848cc5c510;p=mit-scheme.git

Use weak hash tables for predicate lattice.
---

diff --git a/src/runtime/predicate-metadata.scm b/src/runtime/predicate-metadata.scm
index c4c97fc7e..54ccc9cc8 100644
--- a/src/runtime/predicate-metadata.scm
+++ b/src/runtime/predicate-metadata.scm
@@ -130,8 +130,8 @@ USA.
 			(if (default-object? extra) #f extra)
 			(if (default-object? description) #f description)
 			tagging-strategy
-			(make-strong-eq-hash-table)
-			(make-strong-eq-hash-table))))
+			(make-key-weak-eq-hash-table)
+			(make-key-weak-eq-hash-table))))
 	(set-predicate-tag! predicate tag)
 	tag))))