find-by-text ( seq quot -- tag )

Vocabulary

html.parser.analyzer

Inputs

seq	an object
quot	an object

Outputs

tag

an object

Definition

USING: accessors html.parser kernel sequences ;

IN: html.parser.analyzer

: find-by-text ( seq quot -- tag )
    [ dup name>> text = ] prepose find drop ; inline