interpolate-tag ( tag -- quot )

Vocabulary

xml.syntax.private

Inputs

tag

an object

Outputs

quot

an object

Definition

USING: accessors kernel xml.data ;

IN: xml.syntax.private

: interpolate-tag ( tag -- quot )
    [
        [ name>> ] [ attrs>> interpolate-attrs ]
        [ children>> interpolate-sequence ] tri
        [ [ [ swap ] curry ] dip compose ] dip
        [ [ <tag> ] dip ] compose compose
    ] when-interpolated ;