interpolate-attr ( key value -- quot )

Vocabulary

xml.syntax.private

Inputs

key	an object
value	an object

Outputs

quot

an object

Definition

USING: arrays kernel xml.data ;

IN: xml.syntax.private

: interpolate-attr ( key value -- quot )
    dup interpolated? [
        get-interpolated [ [ swap ] curry ] dip
        [ [ ?present 2array ] dip ] compose compose
    ] [ 2array [ swap ] curry ] if ;