take-name ( -- string )

Vocabulary
xml.name

Definition

USING: kernel xml.char-classes xml.state xml.tokenize ;

IN: xml.name

: take-name ( -- string )
    version-1.0? [ swap name-char? not ] curry take-until ;