From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 15 Feb 2017 09:34:27 +0000 (-0800)
Subject: Fix predicate relationship.
X-Git-Tag: mit-scheme-pucked-9.2.12~220^2~100
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ef668ef13c9debdd70f3009b02837681e3bdd30c;p=mit-scheme.git

Fix predicate relationship.
---

diff --git a/src/runtime/predicate-metadata.scm b/src/runtime/predicate-metadata.scm
index 086a9c6cd..f63ed45c6 100644
--- 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