2craft-1up ( ..a quot1: ( ..a -- ..b o1 ) quot2: ( ..b -- ..c o2 ) -- ..c o1 o2 )
Extra combinators

Prev:	3dip-3up ( ..a d1 d2 d3 quot: ( ..a -- ..b o1 o2 o3 ) -- ..b d1 d2 d3 o1 o2 o3 )
Next:	3craft-1up ( ..a quot1: ( ..a -- ..b o1 ) quot2: ( ..b -- ..c o2 ) quot3: ( ..c -- ..d o3 ) -- ..d o1 o2 o3 )

Vocabulary
combinators.extras

Inputs

quot1	a quotation with stack effect ( ..a -- ..b o1 )
quot2	a quotation with stack effect ( ..b -- ..c o2 )

Outputs

o1	an object
o2	an object

Word description
Applies quot1to the values on the stack and saves the last value left by the quotation on the stack. Then applies quot2to the rest of the values left on the stack by quot1 and saves the last value left by the quotation on the stack. Finally the word puts the saved values on the stack.

Definition

USING: kernel ;

IN: combinators.extras

: 2craft-1up
    ( ..a quot1: ( ..a -- ..b o1 ) quot2: ( ..b -- ..c o2 ) -- ..c o1 o2 )
    [ call ] dip [ dip-1up ] call ; inline