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

Vocabulary

xml.name

Inputs

name	an object
attrs-alist	an object

Outputs

name	an object
attrs	an object

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> ;