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


Vocabulary
io.encodings.utf32.private

Inputs
boman object


Outputs
le/bean object


Definition
USING: io.encodings.utf16 io.encodings.utf32 kernel sequences ;

IN: io.encodings.utf32.private

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