gml-] ( 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 sequences ;

IN: gml.core

: gml-] ( registers gml -- registers gml )
    { gml } declare 0 1 [
        dup [
            [ operand-stack>> ] [ find-marker ] bi pop-slice
            { } like
        ] [ operand-stack>> pop* ] bi
    ] gml-primitive ;