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

Vocabulary

alien.data.map.private

Inputs

c-type	an object
count	an object

Outputs

quot

an object

Definition

USING: alien kernel math ;

IN: alien.data.map.private

: [>c-type-param] ( c-type count -- quot )
    2dup c-type-iter-length [ [ ] 2curry ] dip
    [ [ dip [ ] [ >c-ptr ] [ byte-length ] tri ] curry ] dip
    [ 2dup /i data-map-param boa ] curry compose ;