1 ! Copyright (C) 2008 Daniel Ehrenberg
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors io.encodings kernel ;
4 IN: io.encodings.strict
6 TUPLE: strict-state code ;
10 M: strict-state decode-char
11 code>> decode-char dup replacement-char = [ decode-error ] when ;