[alloc-c-type-param] ( c-type count -- quot )


Vocabulary
alien.data.map.private

Inputs
c-typean object
countan object


Outputs
quotan object


Definition
USING: byte-arrays kernel math ;

IN: alien.data.map.private

: [alloc-c-type-param] ( c-type count -- quot )
2dup c-type-iter-length dup [ [ ] 2curry ] 2dip
[ [ * >fixnum [ (byte-array) dup ] keep ] curry ] dip
[ ] curry compose [ [ dip ] curry ] dip
[ keep data-map-param boa ] curry compose ;