3dip-1up ( ..a d1 d2 d3 quot: ( ..a -- ..b o ) -- ..b d1 d2 d3 o )
Extra combinators
Prev:2dip-2up ( ..a d1 d2 quot: ( ..a -- ..b o1 o2 ) -- ..b d1 d2 o1 o2 )
Next:3dip-2up ( ..a d1 d2 d3 quot: ( ..a -- ..b o1 o2 ) -- ..b d1 d2 d3 o1 o2 )


Vocabulary
combinators.extras

Inputs
d1an object
d2an object
d3an object
quota quotation with stack effect ( ..a -- ..b o )


Outputs
d1an object
d2an object
d3an object
oan object


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

Definition
USING: kernel ;

IN: combinators.extras

: 3dip-1up
( ..a d1 d2 d3 quot: ( ..a -- ..b o ) -- ..b d1 d2 d3 o )
3dip roll ; inline