register-index ( name registers -- n )

Vocabulary

gml.parser

Inputs

name	an object
registers	an object

Outputs

n

an object

Definition

USING: kernel sequences ;

IN: gml.parser

: register-index ( name registers -- n )
    2dup index dup
    [ 2nip ] [ drop [ nip length ] [ push ] 2bi ] if ;