From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Sat, 25 Feb 2017 03:53:53 +0000 (-0700)
Subject: Fix char-set-predicate to take non-characters.
X-Git-Tag: mit-scheme-pucked-9.2.12~218
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e230f695413e5649aac4ff014982f513f94b41a6;p=mit-scheme.git

Fix char-set-predicate to take 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*)