find-tag-named ( seq name -- tag )

Vocabulary

modern.html

Inputs

seq	an object
name	an object

Outputs

tag

an object

Definition

USING: accessors kernel sequences ;

IN: modern.html

: find-tag-named ( seq name -- tag )
    [ [ open-tag? ] filter ] dip
    '[ name>> local-name _ = ] find nip ;