add-ns ( name -- )

Vocabulary

xml.name

Inputs

name

an object

Outputs

None

Definition

USING: accessors assocs kernel namespaces xml.errors ;

IN: xml.name

: add-ns ( name -- )
    dup space>>
    [ ns-stack get assoc-stack ] [ nonexist-ns ] ?unless >>url
    drop ;