find-matching-tag ( name stack -- seq )

Vocabulary

html5

Inputs

name	an object
stack	an object

Outputs

seq

an object

Definition

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

IN: html5

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