4craft-1up ( ..a quot1: ( ..a -- ..b o1 ) quot2: ( ..b -- ..c o2 ) quot3: ( ..c -- ..d o3 ) quot4: ( ..d -- ..e o4 ) -- ..e o1 o2 o3 o4 )
Extra combinators

Prev:	3craft-1up ( ..a quot1: ( ..a -- ..b o1 ) quot2: ( ..b -- ..c o2 ) quot3: ( ..c -- ..d o3 ) -- ..d o1 o2 o3 )
Next:	3and ( a b c -- ? )

Vocabulary
combinators.extras

Inputs

quot1	a quotation with stack effect ( ..a -- ..b o1 )
quot2	a quotation with stack effect ( ..b -- ..c o2 )
quot3	a quotation with stack effect ( ..c -- ..d o3 )
quot4	a quotation with stack effect ( ..d -- ..e o4 )

Outputs

o1	an object
o2	an object
o3	an object
o4	an object

Word description
A version of 2craft-1upthat crafts 4 values.

Definition

USING: kernel ;

IN: combinators.extras

: 4craft-1up
    ( ..a quot1: ( ..a -- ..b o1 ) quot2: ( ..b -- ..c o2 ) quot3: ( ..c -- ..d o3 ) quot4: ( ..d -- ..e o4 ) -- ..e o1 o2 o3 o4 )
    [ call ] 3dip [ dip-1up ] 2dip [ 2dip-1up ] dip
    [ 3dip-1up ] call ; inline