From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 7 Jan 2017 03:44:44 +0000 (-0800)
Subject: Fix name change missed by previous edit.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~195
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=221939ced970383db02874628760cc0c483400ab;p=mit-scheme.git

Fix name change missed by previous edit.
---

diff --git a/src/runtime/hashtb.scm b/src/runtime/hashtb.scm
index 8dbe2faf1..8ac880948 100644
--- a/src/runtime/hashtb.scm
+++ b/src/runtime/hashtb.scm
@@ -1397,7 +1397,7 @@ USA.
      (set! %set-equality-predicate-hasher! (table 'put!)))
    (set-equality-predicate-hasher! eq? hash-by-identity)
    (set-equality-predicate-hasher! eqv? hash-by-eqv)
-   (set-equality-predicate-hasher! equal? hash)))
+   (set-equality-predicate-hasher! equal? hash-by-equal)))
 
 (define (equality-predicate-hasher equality-predicate)
   (let ((hasher (maybe-get-equality-predicate-hasher equality-predicate #f)))