From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 2 Jun 2010 08:34:20 +0000 (-0700)
Subject: Don't restrict character sets to Unicode characters.
X-Git-Tag: 20100708-Gtk~29
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=735fa801a6cec9502368c9691dd4a6c99b6836f6;p=mit-scheme.git

Don't restrict character sets to Unicode characters.
---

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)