(INTERPOLATE) ( accum quot -- accum )


Vocabulary
functors.private

Inputs
accuman object
quotan object


Outputs
accuman object


Definition
USING: interpolate io.streams.string kernel lexer sequences ;

IN: functors.private

: (INTERPOLATE) ( accum quot -- accum )
[ scan-token interpolate-locals-quot ] dip
[ [ with-string-writer ] curry ] dip compose suffix! ;