[interpolate-xml] ( xml -- quot )

Vocabulary

xml.syntax.private

Inputs

xml

an object

Outputs

quot

an object

Definition

IN: xml.syntax.private

GENERIC: [interpolate-xml] ( xml -- quot )

Methods

USING: kernel xml.data xml.syntax.private ;

M: xml-chunk [interpolate-xml]
    interpolate-sequence [ drop <xml-chunk> ] compose ;


USING: accessors kernel xml.data xml.syntax.private ;

M: xml [interpolate-xml]
    dup body>> interpolate-tag [ [ (clone) swap ] curry ] dip
    [ drop >>body ] compose compose ;