if-endian ( endian bytes-quot seq-quot -- )

Vocabulary

endian.private

Inputs

endian	an object
bytes-quot	an object
seq-quot	an object

Outputs

None

Definition

USING: byte-arrays endian kernel ;

IN: endian.private

: if-endian ( endian bytes-quot seq-quot -- )
    [ compute-native-endianness = [ dup byte-array? ] [ f ] if ]
    2dip if ; inline