diff --git a/core/io/encodings/utf16n/utf16n.factor b/core/io/encodings/utf16n/utf16n.factor index 5664f24fda..6e178c1774 100644 --- a/core/io/encodings/utf16n/utf16n.factor +++ b/core/io/encodings/utf16n/utf16n.factor @@ -7,9 +7,9 @@ IN: io.encodings.utf16n SINGLETON: utf16n -: utf16n ( -- descriptor ) +: choose-utf16-endian ( -- descriptor ) B{ 1 0 0 0 } 0 alien-unsigned-4 1 = utf16le utf16be ? ; foldable -M: utf16n drop utf16n ; +M: utf16n drop choose-utf16-endian ; -M: utf16n drop utf16n ; +M: utf16n drop choose-utf16-endian ;