check-tag-stack ( stack -- stack )

Vocabulary

modern.html

Inputs

stack

an object

Outputs

stack

an object

Definition

USING: kernel sequences ;

IN: modern.html

: check-tag-stack ( stack -- stack )
    dup [ unclosed-open-tag? ] filter
    [ unmatched-open-tags-error ] unless-empty ;