make-tag ( -- tag )

Vocabulary

xml.elements

Inputs

None

Outputs

tag

an object

Definition

USING: combinators kernel xml.state xml.tokenize ;

IN: xml.elements

: make-tag ( -- tag )
    get-char {
        { 33 [ next direct ] }
        { 63 [ next instruct ] }
        { 45 [ next interpolate-tag ] }
        [ drop normal-tag ]
    } case ;