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

Prev:	4quad@ ( k l m n o p q r s t u v w x y z quot -- )
Next:	quad-curry* ( w x y z p q r s -- 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

p'	[ x p ]
q'	[ x q ]
r'	[ x r ]
s'	[ x s ]

Word description
Partially applies p, q, r and s to x.

Definition

USING: kernel.private ;

IN: combinators.extras

: quad-curry ( x p q r s -- p' q' r' s' )
    [ currier ] quad@ quad ; inline