(children>string) ( children -- string )

Vocabulary

xml.traversal.private

Inputs

children

an object

Outputs

string

an object

Definition

USING: combinators kernel sequences strings ;

IN: xml.traversal.private

: (children>string) ( children -- string )
    {
        { [ dup empty? ] [ drop "" ] }
        {
            [ dup [ string? not ] any? ]
            [
                "XML tag unexpectedly contains non-text children"
                throw
            ]
        }
        [ concat ]
    } cond ;