gml-index ( registers gml -- registers gml )

Vocabulary

gml.core

Inputs

registers	an object
gml	an object

Outputs

registers	an object
gml	an object

Definition

USING: accessors gml.runtime kernel kernel.private math
sequences ;

IN: gml.core

: gml-index ( registers gml -- registers gml )
    { gml } declare 1 1
    [ over operand-stack>> [ length 1 - swap - ] keep nth ]
    gml-primitive ;