first-child-tag ( tag -- child )
Utilities for traversing XML

Prev:	children-tags ( tag -- sequence )
Next:	assert-tag ( name name -- )

Vocabulary
xml.traversal

Inputs

tag	an XML tag or document

Outputs

child

a tag

Word description
Returns the first child of the given tag that is a tag.

See also
children-tags

Definition

USING: accessors kernel sequences xml.data ;

IN: xml.traversal

: first-child-tag ( tag -- child )
    children>> [ tag? ] find nip ;