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 da3eda0a5f074e94a1ad4c9f97651a82d05e2dbf..81619601838d0c6e5a805cea308ca1a2af28c010 100644 (file)
--- 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)))