From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 6 Jan 2017 21:19:33 +0000 (-0800)
Subject: Register equality-predicate?.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~202
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c24f639bf0a437820dba8bb15fac36d4a4cb8162;p=mit-scheme.git

Register equality-predicate?.
---

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