From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 31 May 2010 00:36:11 +0000 (-0700)
Subject: Don't restrict CHAR-SET-MEMBERS; it gets used on the inversion of
X-Git-Tag: 20100708-Gtk~44
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=730e6e998b84cadaa9d1d976ba62c04b6eb36d9d;p=mit-scheme.git

Don't restrict CHAR-SET-MEMBERS; it gets used on the inversion of
8-bit char sets, which aren't 8-bit.
---

diff --git a/src/runtime/chrset.scm b/src/runtime/chrset.scm
index a409203c1..8ad7ca20b 100644
--- a/src/runtime/chrset.scm
+++ b/src/runtime/chrset.scm
@@ -544,7 +544,7 @@ USA.
   (list->string (map integer->char (char-set-members char-set))))
 
 (define (char-set-members char-set)
-  (guarantee-8-bit-char-set char-set 'CHAR-SET-MEMBERS)
+  (guarantee-char-set char-set 'CHAR-SET-MEMBERS)
   (let ((low (%char-set-low char-set)))
     (let loop ((code 0))
       (if (fix:< code #x100)