diff --git a/basis/io/encodings/strict/strict.factor b/basis/io/encodings/strict/strict.factor index 3288de601d..53975ace4a 100644 --- a/basis/io/encodings/strict/strict.factor +++ b/basis/io/encodings/strict/strict.factor @@ -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 - code>> [ strict ] change-code ; - M: strict decode-char code>> decode-char dup replacement-char = [ decode-error ] when ;