<PRIVATE
: encode-if< ( char stream encoding max -- )
- nip 1- pick < [ encode-error ] [ stream-write1 ] if ; inline
+ nip 1 - pick < [ encode-error ] [ stream-write1 ] if ; inline
: decode-if< ( stream encoding max -- character )
nip swap stream-read1 dup
128 encode-if< ;
M: ascii decode-char
- 128 decode-if< ;
\ No newline at end of file
+ 128 decode-if< ;