From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 6 Jan 2017 07:39:59 +0000 (-0800)
Subject: Add some more predicate definitions.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~209
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=84c40c5d32c15d05778a088fcd4d26b051591061;p=mit-scheme.git

Add some more predicate definitions.
---

diff --git a/src/runtime/predicate-metadata.scm b/src/runtime/predicate-metadata.scm
index 2e43d872b..d1a851836 100644
--- 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)