typedef-endian ( n ? c-type endian -- )


Vocabulary
alien.endian

Definition
USING: alien.c-types endian kernel namespaces ;

IN: alien.endian

: typedef-endian ( n ? c-type endian -- )
native-endianness get =
[ 2nip [ endian-c-type>c-type-symbol ] keep typedef ]
[ [ change-c-type-accessors ] keep typedef ] if ;