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


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