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

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

This reverts commit 17a3cf7590.
clean-linux-x86-64
John Benediktsson 2019-08-06 07:12:44 -07:00
parent 17a3cf7590
commit 6e161a2ccb
1 changed files with 3 additions and 2 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,7 +160,8 @@ M: utf16 <decoder> ( stream utf16 -- decoder )
M: utf16 <encoder> ( stream utf16 -- encoder )
drop bom-le over stream-write utf16le <encoder> ;
: le? ( -- ? ) B{ 1 0 0 0 } 0 alien-unsigned-4 1 = ; foldable
PRIVATE>
: utf16n ( -- value )
B{ 1 0 0 0 } 0 alien-unsigned-4 1 = utf16le utf16be ? ; foldable
: utf16n ( -- value ) le? utf16le utf16be ? ;