]> gitweb.factorcode.org Git - factor.git/blobdiff - core/io/encodings/utf16n/utf16n.factor
bootstrap: a few more paths
[factor.git] / core / io / encodings / utf16n / utf16n.factor
index 5664f24fda258878a6861dbeaa6527b7f91da69a..6e178c177433ea911d123f1e6904fb52e2ffbb13 100644 (file)
@@ -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 <decoder> drop utf16n <decoder> ;
+M: utf16n <decoder> drop choose-utf16-endian <decoder> ;
 
-M: utf16n <encoder> drop utf16n <encoder> ;
+M: utf16n <encoder> drop choose-utf16-endian <encoder> ;