suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

treat uname result as locale encoding instead of UTF-8

Browse Source
This commit is contained in:
Matthew Flatt 2021-03-03 07:02:17 -07:00
parent 261d73abdb
commit 1e56ca9cc1
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/bc/src/string.c
View File

@ -2414,7 +2414,7 @@ static Scheme_Object *system_type(int argc, Scheme_Object *argv[])
Scheme_Object *str; Scheme_Object *str;
s = rktio_uname(scheme_rktio); s = rktio_uname(scheme_rktio);
str = scheme_make_utf8_string(s); str = scheme_make_locale_string(s);
rktio_free(s); rktio_free(s);
return str; return str;

2
racket/src/cs/schemified/io.scm
View File

@ -38895,7 +38895,7 @@
(unsafe-poll-fd_0 system-fd_0 mode_0 socket?1_0)))))) (unsafe-poll-fd_0 system-fd_0 mode_0 socket?1_0))))))
(define get-machine-info (define get-machine-info
(lambda () (lambda ()
(1/bytes->string/utf-8 (1/bytes->string/locale
(begin (begin
(unsafe-start-atomic) (unsafe-start-atomic)
(begin0 (begin0

4
racket/src/io/machine/main.rkt
View File

@ -1,12 +1,12 @@
#lang racket/base #lang racket/base
(require "../host/rktio.rkt" (require "../host/rktio.rkt"
"../host/thread.rkt" "../host/thread.rkt"
"../string/convert.rkt") "../locale/string.rkt")
(provide get-machine-info) (provide get-machine-info)
(define (get-machine-info) (define (get-machine-info)
(bytes->string/utf-8 (bytes->string/locale
(atomically (atomically
(define v (rktio_uname rktio)) (define v (rktio_uname rktio))
(begin0 (begin0