Fix char-set-predicate to accept non-characters.

diff --git a/src/runtime/chrset.scm b/src/runtime/chrset.scm
index e248b617235313274c33256a5db6cd3b168e3146..c220b34879183b610ecb44af57d6b7761e3b5ec3 100644 (file)
--- a/src/runtime/chrset.scm
+++ b/src/runtime/chrset.scm
@@ -407,7 +407,8 @@ USA.
 (define (char-set-predicate char-set)
   (guarantee char-set? char-set 'CHAR-SET-PREDICATE)
   (lambda (char)
-    (char-in-set? char char-set)))
+    (and (bitless-char? char)
+        (char-in-set? char char-set))))
 
 (define (char-set=? char-set . char-sets)
   (every (lambda (char-set*)