farkup-inside ( farkup name -- xml )

Vocabulary

farkup

Inputs

farkup	an object
name	an object

Outputs

xml

an object

Definition

USING: accessors arrays kernel xml.data ;

IN: farkup

: farkup-inside ( farkup name -- xml )
    <simple-name> swap
    T{ attrs } clone swap child>> (write-farkup) 1array <tag> ;