seq>native-endianness ( seq n -- seq' )

Vocabulary

endian

Inputs

seq	an object
n	an object

Outputs

seq'

an object

Definition

USING: grouping kernel namespaces sequences ;

IN: endian

: seq>native-endianness ( seq n -- seq' )
    native-endianness get-global dup endianness get =
    [ 2drop ] [
        [ [ <groups> ] keep ] dip little-endian =
        [ [ [ be> ] ] dip [ >le ] curry compose map ]
        [ [ [ le> ] ] dip [ >be ] curry compose map ] if concat
    ] if ; inline