find-last-open-tag ( stack name -- seq )

Vocabulary

modern.html

Inputs

stack	an object
name	an object

Outputs

seq

an object

Definition

USING: accessors combinators.short-circuit kernel sequences
sequences.extras ;

IN: modern.html

:: find-last-open-tag ( stack name -- seq )
    stack
    [ { [ unclosed-open-tag? ] [ name>> name = ] } 1&& ]
    find-last drop
    [ stack swap shorten* ]
    [ stack name unmatched-closing-tag-error ] if* ;