Use hash-table-constructor instead of comparator->hash-table-type.

The former was designed for the use case and does not expose hash-table types,
which are deprecated (though not yet marked as such).

diff --git a/src/runtime/equals.scm b/src/runtime/equals.scm
index 1638e39e83157ee1cbd20ae72833ae5c98491428..b82bad5eb013a44327d5d821bb669a11b68deefa 100644 (file)
--- a/src/runtime/equals.scm
+++ b/src/runtime/equals.scm
@@ -88,8 +88,8 @@ USA.
 (define (make-detect-circ continue)
   continue)
 
-(define ((make-mdc ht-type) continue)
-  (let ((ht (make-hash-table ht-type)))
+(define ((make-mdc make-ht) continue)
+  (let ((ht (make-ht)))
     (lambda (x y)
       (let ((key (cons x y)))
        (hash-table-ref ht key
@@ -109,7 +109,7 @@ USA.
    (lambda ()
      (set! make-detect-circ
           (make-mdc
-           (comparator->hash-table-type
+           (hash-table-constructor
             (make-pair-comparator eq-comparator eq-comparator))))
      unspecific)))
 

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index cc47f33d559b43c9a775b22e416fad453f9e1871..0931fc7d94627a95dbe1abbca99059d111ace547 100644 (file)
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -2920,9 +2920,7 @@ USA.
          make-strong-eq-hash-table
          make-strong-eqv-hash-table
          set-hash-table-rehash-size!
-         set-hash-table-rehash-threshold!)
-  (export (runtime equality)
-         comparator->hash-table-type))
+         set-hash-table-rehash-threshold!))
 
 (define-package (runtime memoizer)
   (files "memoizer")