xml-path ( seq path -- tags )

Vocabulary

modern.html

Inputs

seq	an object
path	an object

Outputs

tags

an object

Definition

USING: kernel sequences strings ;

IN: modern.html

: xml-path ( seq path -- tags )
    [
        dup string?
        [ find-child-tag-named ] [ find-child-tags ] if
    ] each ;