when-interpolated ( xml quot -- genquot )

Vocabulary

xml.syntax.private

Inputs

xml	an object
quot	an object

Outputs

genquot

an object

Definition

USING: kernel ;

IN: xml.syntax.private

: when-interpolated ( xml quot -- genquot )
    [ dup has-interpolated? ] dip [ [ swap ] curry ] if ; inline