From b7221120d4495ea535f2a8b1e8fde4004e6b8430 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 7 Mar 2017 20:20:15 -0800 Subject: [PATCH] Fix char-in-set? so it works with all characters. --- src/runtime/chrset.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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?) -- 2.25.1