(interpolate-quot) ( str quot -- quot' )

Vocabulary

interpolate.private

Inputs

str	an object
quot	an object

Outputs

quot'

an object

Definition

USING: accessors assocs combinators generalizations io kernel
quotations sequences ;

IN: interpolate.private

:: (interpolate-quot) ( str quot -- quot' )
    str parse-interpolate :> args args max-stack-var :> vars
    args [
        [
            {
                {
                    [ dup named-var? ]
                    [ name>> quot call curry ]
                }
                { [ dup stack-var? ] [ n>> ~quotation~ curry ] }
                [ 1quotation ]
            } cond
        ] dip [ write ] compose compose
    ] { } assoc>map concat vars [ [ ndrop ] curry append ] when*
    ; inline