quad ( x p q r s -- )
Extra combinators

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

Vocabulary
combinators.extras

Inputs

x	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
Applies p to x, then applies q to x, then applies r to x, and finally applies s to x.

Definition

USING: kernel ;

IN: combinators.extras

: quad ( x p q r s -- )
    [ [ [ keep ] dip keep ] dip keep ] dip call ; inline