From 6e161a2ccb27c6130c6c10271a44744739bcac1b Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 6 Aug 2019 07:12:44 -0700 Subject: [PATCH] Revert "io.encodings.utf16: make utf16n foldable, maybe fixes windows bootstrap." This reverts commit 17a3cf75904e83b310c923d69bab889a00968c67. --- core/io/encodings/utf16/utf16.factor | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/core/io/encodings/utf16/utf16.factor b/core/io/encodings/utf16/utf16.factor index d8da3af766..e844ff2afe 100644 --- a/core/io/encodings/utf16/utf16.factor +++ b/core/io/encodings/utf16/utf16.factor @@ -160,7 +160,8 @@ M: utf16 ( stream utf16 -- decoder ) M: utf16 ( stream utf16 -- encoder ) drop bom-le over stream-write utf16le ; +: 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 ? ;