curried/composed-literal ( input1 input2 quot -- literal )

Vocabulary

stack-checker.values

Inputs

input1	an object
input2	an object
quot	an object

Outputs

literal

an object

Definition

USING: accessors kernel ;

IN: stack-checker.values

: curried/composed-literal ( input1 input2 quot -- literal )
    [ [ literal ] bi@ ] dip
    [ [ [ value>> ] bi@ ] dip call ] [ drop nip recursion>> ]
    3bi literal-tuple boa ; inline