tag>xml ( xml tag -- newxml )

Vocabulary

xml.data.private

Inputs

xml	an object
tag	an object

Outputs

newxml

an object

Definition

USING: accessors kernel xml.data ;

IN: xml.data.private

: tag>xml ( xml tag -- newxml )
    [ [ prolog>> ] [ before>> ] [ after>> ] tri ] dip swap <xml>
    ;