io: print: handle paths that don't convert cleanly to a string

2018-11-12 14:32:05 -08:00 · 2018-11-12 14:32:05 -08:00 · ccbef59e96
commit ccbef59e96
parent 7abfdab35e
1 changed files with 1 additions and 1 deletions
--- a/racket/src/io/path/path.rkt
+++ b/racket/src/io/path/path.rkt
@ -23,7 +23,7 @@
            (write-string "#<" port)
            (write-string (symbol->string (path-convention p)) port)
            (write-string "-path:" port))))
-    (write-string (bytes->string/locale (path-bytes p)) port)
+    (write-string (bytes->string/locale (path-bytes p) #\?) port)
    (when mode
      (write-string ">" port)))
  #:property prop:equal+hash