io.encodings.strict: some fixes.
parent
e164358d01
commit
68fed78c7d
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue