io: fix decoding in get-output-bytes

2019-01-19 09:02:53 -07:00 · 2019-01-19 09:02:53 -07:00 · 74b34c210d
commit 74b34c210d
parent 09b3b2fb3c
1 changed files with 1 additions and 1 deletions
--- a/racket/src/io/port/string-port.rkt
+++ b/racket/src/io/port/string-port.rkt
@ -19,4 +19,4 @@
  (check who (lambda (v) (and (output-port? o) (string-port? o)))
         #:contract "(and/c output-port? string-port?)"
         o)
-  (bytes->string/utf-8 (get-output-bytes o) #\?))
+  (bytes->string/utf-8 (get-output-bytes o) #\uFFFD))