From 33b074a6f754a3fa5115796c4af4061b370a6fb5 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 20 Dec 2009 02:37:04 -0500 Subject: [PATCH] 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. --- src/runtime/hashtb.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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))) -- 2.25.1