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

Vocabulary
stack-checker.values

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