4tri ( w x y z p q r -- ) (original) (raw)

4tri ( w x y z p q r -- )
Extra combinators

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

Vocabulary
combinators.extras

Inputs

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

Outputs
None

Word description
Applies p to the four input values, then applies q to the four input values, and finally applies r to the four input values.

Definition

USING: kernel ;

IN: combinators.extras

: 4tri ( w x y z p q r -- ) [ [ 4keep ] dip 4keep ] dip call
; inline