hairy-local-allot-quot ( c-type initial -- quot )

Vocabulary

alien.data.private

Inputs

c-type	an object
initial	an object

Outputs

quot

an object

Definition

USING: alien.c-types kernel ;

IN: alien.data.private

: hairy-local-allot-quot ( c-type initial -- quot )
    over [
        [ [ simple-local-allot-quot ] curry ] dip
        [ over 0 ] curry compose
    ] dip [ set-alien-value ] curry compose ;