From 17a3cf75904e83b310c923d69bab889a00968c67 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 5 Aug 2019 19:44:29 -0700
Subject: [PATCH] io.encodings.utf16: make utf16n foldable, maybe fixes windows
 bootstrap.

---
 core/io/encodings/utf16/utf16.factor | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/core/io/encodings/utf16/utf16.factor b/core/io/encodings/utf16/utf16.factor
index e844ff2afe..d8da3af766 100644
--- a/core/io/encodings/utf16/utf16.factor
+++ b/core/io/encodings/utf16/utf16.factor
@@ -160,8 +160,7 @@ 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 ) le? utf16le utf16be ? ;
+: utf16n ( -- value )
+    B{ 1 0 0 0 } 0 alien-unsigned-4 1 = utf16le utf16be ? ; foldable