quad* ( w x y z p q r s -- )
Extra combinators

Prev:	4quad ( w x y z p q r s -- )
Next:	2quad* ( o t u v w x y z p q r s -- )

Vocabulary
combinators.extras

Inputs

w	an object
x	an object
y	an object
z	an object
p	a quotation with stack effect ( x -- ... )
q	a quotation with stack effect ( x -- ... )
r	a quotation with stack effect ( x -- ... )
s	a quotation with stack effect ( x -- ... )

Outputs
None

Word description
Appliesp to w, then applies q to x, then applies r to y, and finally applies s to z.

Definition

USING: kernel ;

IN: combinators.extras

: quad* ( w x y z p q r s -- )
    [ [ [ 3dip ] dip 2dip ] dip dip ] dip call ; inline