find-marker ( gml -- n )

Vocabulary

gml.runtime

Inputs

gml

an object

Outputs

n

an object

Definition

USING: accessors kernel math sequences ;

IN: gml.runtime

: find-marker ( gml -- n )
    operand-stack>> [ marker eq? ] find-last
    [ 1 + ] [ no-marker-found ] if ; inline