From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 8 Mar 2017 04:20:15 +0000 (-0800)
Subject: Fix char-in-set? so it works with all characters.
X-Git-Tag: mit-scheme-pucked-9.2.12~158^2~109
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b7221120d4495ea535f2a8b1e8fde4004e6b8430;p=mit-scheme.git

Fix char-in-set? so it works with all characters.
---

diff --git a/src/runtime/chrset.scm b/src/runtime/chrset.scm
index c220b3487..eabc1baa0 100644
--- a/src/runtime/chrset.scm
+++ b/src/runtime/chrset.scm
@@ -383,8 +383,9 @@ USA.
 ;;;; Accessors
 
 (define (char-in-set? char char-set)
-  (guarantee bitless-char? char 'char-in-set?)
-  (%code-point-in-char-set? (char->integer char) char-set))
+  (guarantee char? char 'char-in-set?)
+  (and (bitless-char? char)
+       (%code-point-in-char-set? (char->integer char) char-set)))
 
 (define (code-point-in-char-set? cp char-set)
   (guarantee unicode-code-point? cp 'code-point-in-char-set?)