steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/io/encodings/strict/strict.factor
View File

@ -4,15 +4,8 @@ USING: io.encodings kernel accessors summary ;
IN: io.encodings.strict IN: io.encodings.strict
TUPLE: strict code ; TUPLE: strict code ;
C: strict strict 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 M: strict decode-char
code>> decode-char dup replacement-char = [ decode-error ] when ; code>> decode-char dup replacement-char = [ decode-error ] when ;