]> gitweb.factorcode.org Git - factor.git/commitdiff
Revert "io.encodings.utf16: make utf16n foldable, maybe fixes windows bootstrap."
authorJohn Benediktsson <mrjbq7@gmail.com>
Tue, 6 Aug 2019 14:12:44 +0000 (07:12 -0700)
committerJohn Benediktsson <mrjbq7@gmail.com>
Tue, 6 Aug 2019 14:12:44 +0000 (07:12 -0700)
This reverts commit 17a3cf75904e83b310c923d69bab889a00968c67.

core/io/encodings/utf16/utf16.factor

index d8da3af766afdd4f0af6df170c407c3b1470a369..e844ff2afe6c3658353b9de2ed2e638b372876b7 100644 (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 ? ;