assure-no-extra ( seq -- )

Vocabulary

xml.elements

Inputs

seq

an object

Outputs

None

Definition

USING: sequences sets xml.data xml.errors ;

IN: xml.elements

: assure-no-extra ( seq -- )
    [ first ] map {
        T{ name { space "" } { main "version" } }
        T{ name { space "" } { main "encoding" } }
        T{ name { space "" } { main "standalone" } }
    } diff [ extra-attrs ] unless-empty ;