prolog-version ( alist -- version )

Vocabulary

xml.elements

Inputs

alist

an object

Outputs

version

an object

Definition

USING: assocs kernel xml.data xml.errors xml.state ;

IN: xml.elements

: prolog-version ( alist -- version )
    T{ name { space "" } { main "version" } } of
    [ good-version ] [ versionless-prolog ] if* dup set-version
    ;