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 @ [ ?present 2array ] dip ] ]
    [ 2array '[ _ swap ] ] if ;