tag-ns ( name attrs-alist -- name attrs )

Vocabulary
xml.name

Definition

USING: assocs kernel xml.data ;

IN: xml.name

: tag-ns ( name attrs-alist -- name attrs )
    dup attrs>ns push-ns [ dup add-ns ] dip dup
    [ drop add-ns ] assoc-each <attrs> ;