2temp2d ( quot: ( a b c d -- e f g h ) -- quot )

Vocabulary

combinators.extras

Inputs

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

Outputs

quot

an object

Definition

USING: generalizations kernel ;

IN: combinators.extras

: 2temp2d ( quot: ( a b c d -- e f g h ) -- quot )
    [ [ 2 4 0 nrotated ] ] dip [ 2 4 0 -nrotated ] compose
    compose ; inline