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

another error-message fix

Browse Source
This commit is contained in:
Matthew Flatt 2011-07-31 05:09:49 -06:00
parent 8a00308ad5
commit 2146a020c0
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

@ -1468,7 +1468,7 @@
[name (object-name port)] [name (object-name port)]
[convert-newlines-to #f] [convert-newlines-to #f]
[decode-error (lambda (msg port) [decode-error (lambda (msg port)
(error 'reencode-input-port (error 'reencode-output-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)]