From e01ee43300a163bddd89240f75d3198cd9d2aa8d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 25 Jul 2011 13:11:05 -0400 Subject: [PATCH] fix error reporting in `reencode-input-port' Closes PR 12076 --- collects/mzlib/port.rkt | 2 +- collects/tests/racket/portlib.rktl | 5 +++++ 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/collects/mzlib/port.rkt b/collects/mzlib/port.rkt index f87d0c9a9d..831d9dbfa6 100644 --- 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))] diff --git a/collects/tests/racket/portlib.rktl b/collects/tests/racket/portlib.rktl index 375aec63f0..2823bc51db 100644 --- a/collects/tests/racket/portlib.rktl +++ b/collects/tests/racket/portlib.rktl @@ -722,6 +722,11 @@ (test #\c read-char ei) (test eof read-char ei))) +(err/rt-test + (port->bytes (reencode-input-port (open-input-bytes #"\xFF\xFF") "utf-8")) + (lambda (exn) + (regexp-match? #rx"^reencode-input-port:" (exn-message exn)))) + ;; -------------------------------------------------- (let-values ([(in out) (make-pipe)])