From 730e6e998b84cadaa9d1d976ba62c04b6eb36d9d Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 30 May 2010 17:36:11 -0700 Subject: [PATCH] Don't restrict CHAR-SET-MEMBERS; it gets used on the inversion of 8-bit char sets, which aren't 8-bit. --- src/runtime/chrset.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.25.1