1temp1d ( quot: ( a b c -- d e f ) -- quot )

Vocabulary

combinators.extras

Inputs

quot	a quotation with stack effect ( a b c -- d e f )

Outputs

quot

an object

Definition

USING: kernel ;

IN: combinators.extras

: 1temp1d ( quot: ( a b c -- d e f ) -- quot )
    [ [ swap ] ] dip [ swap ] compose compose ; inline