take-name ( -- string )

Vocabulary

xml.name

Inputs

None

Outputs

string

an object

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 ;