From 1e56ca9cc1c67234a5590618f45f23c35f5a8b01 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 3 Mar 2021 07:02:17 -0700
Subject: [PATCH] treat uname result as locale encoding instead of UTF-8

---
 racket/src/bc/src/string.c      | 2 +-
 racket/src/cs/schemified/io.scm | 2 +-
 racket/src/io/machine/main.rkt  | 4 ++--
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/racket/src/bc/src/string.c b/racket/src/bc/src/string.c
index aa2b7831c6..6f024e4b02 100644
--- a/racket/src/bc/src/string.c
+++ b/racket/src/bc/src/string.c
@@ -2414,7 +2414,7 @@ static Scheme_Object *system_type(int argc, Scheme_Object *argv[])
       Scheme_Object *str;
 
       s = rktio_uname(scheme_rktio);
-      str = scheme_make_utf8_string(s);
+      str = scheme_make_locale_string(s);
       rktio_free(s);
 
       return str;
diff --git a/racket/src/cs/schemified/io.scm b/racket/src/cs/schemified/io.scm
index 83627a509a..f986bdf569 100644
--- a/racket/src/cs/schemified/io.scm
+++ b/racket/src/cs/schemified/io.scm
@@ -38895,7 +38895,7 @@
        (unsafe-poll-fd_0 system-fd_0 mode_0 socket?1_0))))))
 (define get-machine-info
   (lambda ()
-    (1/bytes->string/utf-8
+    (1/bytes->string/locale
      (begin
        (unsafe-start-atomic)
        (begin0
diff --git a/racket/src/io/machine/main.rkt b/racket/src/io/machine/main.rkt
index 94938371d3..a31478128d 100644
--- a/racket/src/io/machine/main.rkt
+++ b/racket/src/io/machine/main.rkt
@@ -1,12 +1,12 @@
 #lang racket/base
 (require "../host/rktio.rkt"
          "../host/thread.rkt"
-         "../string/convert.rkt")
+         "../locale/string.rkt")
 
 (provide get-machine-info)
 
 (define (get-machine-info)
-  (bytes->string/utf-8
+  (bytes->string/locale
    (atomically
     (define v (rktio_uname rktio))
     (begin0