normal-tag ( -- tag )

Vocabulary

xml.elements

Inputs

None

Outputs

tag

an object

Definition

USING: kernel namespaces xml.data xml.name xml.state
xml.tokenize ;

IN: xml.elements

: normal-tag ( -- tag )
    start-tag
    [ dup add-ns pop-ns <closer> depth dec close ]
    [ middle-tag end-tag ] if ;