find-tags ( seq spec -- tags )

Vocabulary

modern.html

Inputs

seq	an object
spec	an object

Outputs

tags

an object

Definition

USING: kernel sequences strings ;

IN: modern.html

: find-tags ( seq spec -- tags )
    unclip swap [ find-tag-named ] dip [
        dup string?
        [ find-child-tag-named ]
        [ [ find-child-tag-named ] with map ] if
    ] each ;