2008-03-21 21:47:16 -04:00
|
|
|
! Copyright (C) 2008 Daniel Ehrenberg
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2008-07-02 01:20:01 -04:00
|
|
|
USING: io.encodings kernel accessors summary ;
|
2008-03-21 21:47:16 -04:00
|
|
|
IN: io.encodings.strict
|
|
|
|
|
|
2013-03-24 13:10:45 -04:00
|
|
|
TUPLE: strict-state code ;
|
2008-03-21 21:47:16 -04:00
|
|
|
|
2013-03-24 13:10:45 -04:00
|
|
|
C: strict strict-state
|
2008-03-21 21:47:16 -04:00
|
|
|
|
2013-03-24 13:10:45 -04:00
|
|
|
M: strict-state decode-char
|
2015-08-13 19:13:05 -04:00
|
|
|
code>> decode-char dup replacement-char = [ decode-error ] when ;
|
