bom>le/be ( bom -- le/be )


Vocabulary
io.encodings.utf16.private

Inputs
boman object


Outputs
le/bean object


Definition
USING: io.encodings.utf16 kernel sequences ;

IN: io.encodings.utf16.private

: bom>le/be ( bom -- le/be )
dup bom-le sequence=
[ drop utf16le ]
[ bom-be sequence= [ utf16be ] [ missing-bom ] if ] if ;