Add some more predicate definitions.

diff --git a/src/runtime/predicate-metadata.scm b/src/runtime/predicate-metadata.scm
index 2e43d872ba6b34b3b3ccecf7ec34f658f24c66b7..d1a851836c3e6e05f292ee22c0386d030a9871cd 100644 (file)
--- a/src/runtime/predicate-metadata.scm
+++ b/src/runtime/predicate-metadata.scm
@@ -275,6 +275,7 @@ USA.
    (register-predicate! unparser-method? 'unparser-method '<= procedure?)
 
    ;; MIT/GNU Scheme: other stuff
+   (register-predicate! 8-bit-char? '8-bit-char '<= char?)
    (register-predicate! absolute-uri? 'absolute-uri)
    (register-predicate! dispatch-tag? 'dispatch-tag)
    (register-predicate! environment? 'environment)
@@ -289,6 +290,9 @@ USA.
    (register-predicate! thread? 'thread)
    (register-predicate! thread-mutex? 'thread-mutex)
    (register-predicate! undefined-value? 'undefined-value)
+   (register-predicate! unicode-char? 'unicode-char '<= char?)
+   (register-predicate! unicode-scalar-value? 'unicode-scalar-value
+                       '<= index-fixnum?)
    (register-predicate! uninterned-symbol? 'uninterned-symbol '<= symbol?)
    (register-predicate! uri? 'uniform-resource-identifier)
    (register-predicate! weak-list? 'weak-list)