local-index ( args obj -- n )

Vocabulary

locals.rewrite

Inputs

args	an object
obj	an object

Outputs

n

an object

Definition

USING: kernel locals.errors locals.types sequences ;

IN: locals.rewrite

: local-index ( args obj -- n )
    2dup [ [ unquote ] ] dip [ eq? ] curry compose find drop
    [ 2nip ] [ bad-local ] if* ;