deep-children>string ( tag -- string )

Vocabulary

xml.traversal

Inputs

tag

an object

Outputs

string

an object

Definition

USING: accessors kernel make sequences xml.data ;

IN: xml.traversal

: deep-children>string ( tag -- string )
    children>>
    [ [ dup tag? [ deep-children>string ] when % ] each ] ""
    make ;