fix potential encoding bug

2020-12-26 03:26:51 -05:00 · 2020-12-26 03:26:51 -05:00 · de032b9237
parent 9fc1f546c5
commit de032b9237
1 changed files with 1 additions and 1 deletions
--- a/crossfire/agent.rkt
+++ b/crossfire/agent.rkt
@ -200,7 +200,7 @@
             (unless proc-done
               (loop #t proc-done))]
            [(list line)
-             (define line-str (bytes->string/utf-8 line #f))
+             (define line-str (bytes->string/utf-8 line #\?))
             (define line-parts
               (and line-str
                    (map (lambda (x) (string->number x 16))