basis/io/encodings/strict/strict.factor

   1 ! Copyright (C) 2008 Daniel Ehrenberg
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: accessors io.encodings kernel ;
   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 ;