From 61b739b61c87d11fb90914c856e162848cc5c510 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 9 Jan 2018 20:30:12 -0800 Subject: [PATCH] Use weak hash tables for predicate lattice. --- src/runtime/predicate-metadata.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)))) -- 2.25.1