io.encodings.strict: some fixes.

db4
John Benediktsson 2013-03-15 07:55:20 -07:00
parent e164358d01
commit 68fed78c7d
1 changed files with 1 additions and 8 deletions

View File

@ -4,15 +4,8 @@ USING: io.encodings kernel accessors summary ;
IN: io.encodings.strict
TUPLE: strict code ;
C: strict strict
TUPLE: decode-error ;
: decode-error ( -- * ) \ decode-error new throw ;
M: decode-error summary
drop "Error in decoding input stream" ;
M: strict <decoder>
code>> <decoder> [ strict ] change-code ;
M: strict decode-char
code>> decode-char dup replacement-char = [ decode-error ] when ;