hairy-local-allot ( obj -- quot )

Vocabulary

alien.data.private

Inputs

obj

an object

Outputs

quot

an object

Definition

USING: kernel sequences ;

IN: alien.data.private

MACRO: hairy-local-allot ( obj -- quot )
    dup hairy-local-allot?
    [ first3 nip hairy-local-allot-quot ]
    [ [ simple-local-allot-quot ] curry ] if ;