From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 27 Jan 2017 05:52:44 +0000 (-0800)
Subject: Tweak to use ustrings.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~60
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b79f2b4b30cac257d0c99b2901c6767857e2cd07;p=mit-scheme.git

Tweak to use ustrings.
---

diff --git a/src/runtime/chrset.scm b/src/runtime/chrset.scm
index df85a6c8d..1b481f10f 100644
--- a/src/runtime/chrset.scm
+++ b/src/runtime/chrset.scm
@@ -547,10 +547,10 @@ USA.
 ;;;; Backwards compatibility
 
 (define (string->char-set string)
-  (scalar-values->char-set (map char->integer (string->list string))))
+  (scalar-values->char-set (map char->integer (ustring->list string))))
 
 (define (char-set->string char-set)
-  (list->string (map integer->char (char-set-members char-set))))
+  (list->ustring (char-set-members char-set)))
 
 (define (char-set-members char-set)
   (guarantee-char-set char-set 'CHAR-SET-MEMBERS)