gml-where ( registers gml -- registers gml )

Vocabulary

gml.core

Inputs

registers	an object
gml	an object

Outputs

registers	an object
gml	an object

Definition

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

IN: gml.core

: gml-where ( registers gml -- registers gml )
    { gml } declare 1 1 [
        over dictionary-stack>> [ key? ] with find swap
        [ over push-operand 1 ] [ drop 0 ] if
    ] gml-primitive ;