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


Vocabulary
alien.data.private

Definition
USING: alien.c-types kernel ;

IN: alien.data.private

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