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


Vocabulary
combinators.extras

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


Outputs
d1an object
d2an object
oan object


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

Definition
USING: kernel ;

IN: combinators.extras

: 2dip-1up
( ..a d1 d2 quot: ( ..a -- ..b o ) -- ..b d1 d2 o ) 2dip rot
; inline