pair>c-type ( pair -- c-type )

Vocabulary

alien.endian

Inputs

pair

an object

Outputs

c-type

an object

Definition

USING: endian kernel namespaces sequences ;

IN: alien.endian

: pair>c-type ( pair -- c-type )
    [ native-endianness get big-endian = ] dip first2 ? ;