From 735fa801a6cec9502368c9691dd4a6c99b6836f6 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 2 Jun 2010 01:34:20 -0700 Subject: [PATCH] Don't restrict character sets to Unicode characters. --- src/runtime/chrset.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/runtime/chrset.scm b/src/runtime/chrset.scm index 4df2a3c69..ec7f0b086 100644 --- a/src/runtime/chrset.scm +++ b/src/runtime/chrset.scm @@ -260,7 +260,7 @@ USA. (define (char-set-member? char-set char) (guarantee-char-set char-set 'CHAR-SET-MEMBER?) - (guarantee-unicode-char char 'CHAR-SET-MEMBER?) + (guarantee-char char 'CHAR-SET-MEMBER?) (%scalar-value-in-char-set? (char-code char) char-set)) (define (scalar-value-in-char-set? scalar-value char-set) @@ -559,12 +559,12 @@ USA. (define (char-set . chars) (for-each (lambda (char) - (guarantee-unicode-char char 'CHAR-SET)) + (guarantee-char char 'CHAR-SET)) chars) (%scalar-values->char-set (map char->integer chars))) (define (chars->char-set chars) - (guarantee-list-of-type chars unicode-char? "character" 'CHARS->CHAR-SET) + (guarantee-list-of-type chars char? "character" 'CHARS->CHAR-SET) (%scalar-values->char-set (map char->integer chars))) (define (ascii-range->char-set start end) -- 2.25.1