Fix predicate relationship.

diff --git a/src/runtime/predicate-metadata.scm b/src/runtime/predicate-metadata.scm
index 086a9c6cd970108f698bce64e0f3dee5afa7dbd3..f63ed45c6db60a505e3d39e1b5a1a232e9a896f8 100644 (file)
--- a/src/runtime/predicate-metadata.scm
+++ b/src/runtime/predicate-metadata.scm
@@ -312,7 +312,7 @@ USA.
    (register-predicate! stack-address? 'stack-address)
    (register-predicate! thread-mutex? 'thread-mutex)
    (register-predicate! undefined-value? 'undefined-value)
-   (register-predicate! unicode-char? 'unicode-char '<= char?)
+   (register-predicate! unicode-char? 'unicode-char '<= base-char?)
    (register-predicate! unicode-code-point? 'unicode-code-point
                        '<= index-fixnum?)
    (register-predicate! unicode-scalar-value? 'unicode-scalar-value