From 221939ced970383db02874628760cc0c483400ab Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 6 Jan 2017 19:44:44 -0800
Subject: [PATCH] Fix name change missed by previous edit.

---
 src/runtime/hashtb.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)))
-- 
2.25.1