From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Thu, 2 Mar 2017 22:46:40 +0000 (-0700)
Subject: Fix char-set-predicate to accept non-characters.
X-Git-Tag: mit-scheme-pucked-9.2.12~201^2~1
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8a4aa18d997f9d8562314c149a713b650ff439a9;p=mit-scheme.git

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

diff --git a/src/runtime/chrset.scm b/src/runtime/chrset.scm
index e248b6172..c220b3487 100644
--- 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*)