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