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

Vocabulary

io.encodings.utf32.private

Inputs

bom

an object

Outputs

le/be

an 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 ;