suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix error reporting in `reencode-output-port'

Browse Source 
Closes PR 12077

original commit: 61f628f2c6cdd5ae355156f6c37b2c458af1e2c3
This commit is contained in:
Eli Barzilay 2011-07-25 23:46:16 -04:00
parent 4757e1cc6a
commit 61d3c80212
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/port.rkt
View File

@ -1469,7 +1469,7 @@
[convert-newlines-to #f] [convert-newlines-to #f]
[decode-error (lambda (msg port) [decode-error (lambda (msg port)
(error 'reencode-input-port (error 'reencode-input-port
(format "~a: ~e" msg) (format "~a: ~~e" msg)
port))]) port))])
(let ([c (bytes-open-converter "UTF-8" encoding)] (let ([c (bytes-open-converter "UTF-8" encoding)]
[ready-bytes (make-bytes 1024)] [ready-bytes (make-bytes 1024)]