From c24f639bf0a437820dba8bb15fac36d4a4cb8162 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 6 Jan 2017 13:19:33 -0800
Subject: [PATCH] Register equality-predicate?.

---
 src/runtime/predicate-metadata.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/runtime/predicate-metadata.scm b/src/runtime/predicate-metadata.scm
index 346e61008..2362511bc 100644
--- a/src/runtime/predicate-metadata.scm
+++ b/src/runtime/predicate-metadata.scm
@@ -290,6 +290,8 @@ USA.
    (register-predicate! 8-bit-char? '8-bit-char '<= char?)
    (register-predicate! dispatch-tag? 'dispatch-tag)
    (register-predicate! environment? 'environment)
+   (register-predicate! equality-predicate? 'equality-predicate
+			'<= binary-procedure?)
    (register-predicate! interned-symbol? 'interned-symbol '<= symbol?)
    (register-predicate! keyword? 'keyword '<= symbol?)
    (register-predicate! lambda-tag? 'lambda-tag '<= symbol?)
-- 
2.25.1