From 8a4aa18d997f9d8562314c149a713b650ff439a9 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Thu, 2 Mar 2017 15:46:40 -0700
Subject: [PATCH] Fix char-set-predicate to accept non-characters.

---
 src/runtime/chrset.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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*)
-- 
2.25.1