3dip-3up ( ..a d1 d2 d3 quot: ( ..a -- ..b o1 o2 o3 ) -- ..b d1 d2 d3 o1 o2 o3 )
Extra combinators

Prev:	3dip-2up ( ..a d1 d2 d3 quot: ( ..a -- ..b o1 o2 ) -- ..b d1 d2 d3 o1 o2 )
Next:	2craft-1up ( ..a quot1: ( ..a -- ..b o1 ) quot2: ( ..b -- ..c o2 ) -- ..c o1 o2 )

Vocabulary
combinators.extras

Inputs

d1	an object
d2	an object
d3	an object
quot	a quotation with stack effect ( ..a -- ..b o1 o2 o3 )

Outputs

d1	an object
d2	an object
d3	an object
o1	an object
o2	an object
o3	an object

Word description
Like 3dip, but moves the last three values left on the stack by the quotation to the top of the stack.

Definition

USING: generalizations kernel ;

IN: combinators.extras

: 3dip-3up
    ( ..a d1 d2 d3 quot: ( ..a -- ..b o1 o2 o3 ) -- ..b d1 d2 d3 o1 o2 o3 )
    3dip 3 6 0 nrotated ; inline