Use weak hash tables for predicate lattice.

diff --git a/src/runtime/predicate-metadata.scm b/src/runtime/predicate-metadata.scm
index c4c97fc7e122f3d6c0509b63e57c7cef6c7a0396..54ccc9cc843aad843e03c7c5583d0550106767eb 100644 (file)
--- 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))))