Register equality-predicate?.

diff --git a/src/runtime/predicate-metadata.scm b/src/runtime/predicate-metadata.scm
index 346e610081cc9b2828b51e71015b10a55a06899f..2362511bcd1dbec365d774c1df0583385d75e158 100644 (file)
--- 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?)