12 lines
317 B
Factor
12 lines
317 B
Factor
! Copyright (C) 2008 Daniel Ehrenberg
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: io.encodings kernel accessors summary ;
|
|
IN: io.encodings.strict
|
|
|
|
TUPLE: strict-state code ;
|
|
|
|
C: strict strict-state
|
|
|
|
M: strict-state decode-char
|
|
code>> decode-char dup replacement-char = [ decode-error ] when ;
|