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


Vocabulary
combinators.extras

Inputs
dan object
quota quotation with stack effect ( ..a -- ..b o1 o2 )


Outputs
dan object
o1an object
o2an object


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

Definition
USING: kernel ;

IN: combinators.extras

: dip-2up
( ..a d quot: ( ..a -- ..b o1 o2 ) -- ..b d o1 o2 )
dip rot rot ; inline