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

This commit is contained in:
Matthew Flatt 2018-11-12 14:32:05 -08:00
parent 7abfdab35e
commit ccbef59e96

View File

@ -23,7 +23,7 @@
(write-string "#<" port) (write-string "#<" port)
(write-string (symbol->string (path-convention p)) port) (write-string (symbol->string (path-convention p)) port)
(write-string "-path:" 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 (when mode
(write-string ">" port))) (write-string ">" port)))
#:property prop:equal+hash #:property prop:equal+hash