steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.encodings.8-bit: simplify by not implementing encode-string.

windows-high-dpi
John Benediktsson 2018-02-26 15:19:53 -08:00
parent be5c7055ef
commit ca2612b906
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/io/encodings/8-bit/8-bit.factor
View File

@ -22,14 +22,10 @@ TUPLE: 8-bit { biassoc biassoc read-only } ;
M: 8-bit encode-char M: 8-bit encode-char
swap [ 8-bit-encode ] dip stream-write1 ; swap [ 8-bit-encode ] dip stream-write1 ;
M: 8-bit encode-string
swap [ '[ _ 8-bit-encode ] B{ } map-as ] dip stream-write ;
M: 8-bit decode-char M: 8-bit decode-char
swap stream-read1 dup swap stream-read1
[ swap biassoc>> at [ replacement-char ] unless* ] [ swap biassoc>> at [ replacement-char ] unless* ]
[ 2drop f ] [ drop f ] if* ;
if ;
MIXIN: 8-bit-encoding MIXIN: 8-bit-encoding