c-type-count ( in/out -- c-type count )


Vocabulary
alien.data.map.private

Inputs
in/outan object


Outputs
c-typean object
countan object


Definition
USING: alien.arrays arrays kernel math sequences ;

IN: alien.data.map.private

: c-type-count ( in/out -- c-type count )
dup array? [ unclip swap array-length >fixnum ] [ 1 ] if ;
inline