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 ] ] dip
    [ = ] curry compose find nip ;