fix error reporting in `reencode-input-port'

Closes PR 12076 original commit: e01ee43300a163bddd89240f75d3198cd9d2aa8d
2011-07-25 13:11:05 -04:00 · 2011-07-25 13:11:05 -04:00 · 4757e1cc6a
commit 4757e1cc6a
parent fd0971909b
1 changed files with 1 additions and 1 deletions
--- a/collects/mzlib/port.rkt
+++ b/collects/mzlib/port.rkt
@ -1332,7 +1332,7 @@
                [newline-convert? #f]
                [decode-error (lambda (msg port)
                                (error 'reencode-input-port
-                                       (format "~a: ~e" msg)
+                                       (format "~a: ~~e" msg)
                                       port))])
    (let ([c (let ([c (bytes-open-converter encoding "UTF-8")])
               (if newline-convert? (mcons c #f) c))]