start-tag ( -- name ? )

Vocabulary

xml.elements

Inputs

None

Outputs

name	an object
?	an object

Definition

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

IN: xml.elements

: start-tag ( -- name ? )
    get-char 47 eq? dup [ next ] when parse-name swap ;