basis/io/encodings/strict/strict.factor

   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
   5
   6 TUPLE: strict-state code ;
   7
   8 C: strict strict-state
   9
  10 M: strict-state decode-char
  11     code>> decode-char dup replacement-char = [ decode-error ] when ;