dip-1up ( ..a d quot: ( ..a -- ..b o ) -- ..b d o )
Extra combinators

Prev:	4keep-under ( quot -- quot' )
Next:	dip-2up ( ..a d quot: ( ..a -- ..b o1 o2 ) -- ..b d o1 o2 )

Vocabulary
combinators.extras

Inputs

d	an object
quot	a quotation with stack effect ( ..a -- ..b o )

Outputs

d	an object
o	an object

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

Definition

USING: kernel ;

IN: combinators.extras

: dip-1up ( ..a d quot: ( ..a -- ..b o ) -- ..b d o )
    dip swap ; inline