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

io.encodings.utf16: make utf16n foldable, maybe fixes windows bootstrap.

clean-linux-x86-64
John Benediktsson 2019-08-05 19:44:29 -07:00
parent e6fdc8fd51
commit 17a3cf7590
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
core/io/encodings/utf16/utf16.factor
View File

@ -160,8 +160,7 @@ M: utf16 <decoder> ( stream utf16 -- decoder )
M: utf16 <encoder> ( stream utf16 -- encoder ) M: utf16 <encoder> ( stream utf16 -- encoder )
drop bom-le over stream-write utf16le <encoder> ; drop bom-le over stream-write utf16le <encoder> ;
: le? ( -- ? ) B{ 1 0 0 0 } 0 alien-unsigned-4 1 = ; foldable
PRIVATE> PRIVATE>
: utf16n ( -- value ) le? utf16le utf16be ? ; : utf16n ( -- value )
B{ 1 0 0 0 } 0 alien-unsigned-4 1 = utf16le utf16be ? ; foldable