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 _ eq? ] find drop [ 2nip ] [ bad-local ] if*
    ;