endian-slot ( endian c-type pair -- endian-slot )


Vocabulary
alien.endian

Inputs
endianan object
c-typean object
pairan object


Outputs
endian-slotan object


Definition
USING: endian kernel namespaces ;

IN: alien.endian

: endian-slot ( endian c-type pair -- endian-slot )
[ native-endianness get = ] 2dip rot
[ drop ] [ nip pair>c-type ] if ;