parse-named-entity ( accum string -- )

Vocabulary

xml.tokenize

Inputs

accum	an object
string	an object

Outputs

None

Definition

USING: assocs kernel namespaces sequences xml.entities
xml.errors xml.state ;

IN: xml.tokenize

: parse-named-entity ( accum string -- )
    [ entities at ] [ swap push ] [
        [ extra-entities get at ] [ swap push-all ]
        [ no-entity ] ?if
    ] ?if ;