From ef668ef13c9debdd70f3009b02837681e3bdd30c Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 15 Feb 2017 01:34:27 -0800
Subject: [PATCH] Fix predicate relationship.

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

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
-- 
2.25.1