3keep-1up ( quot -- quot )
Extra combinators

Prev:	2keep-3up ( quot -- quot )
Next:	3keep-2up ( quot -- quot )

Vocabulary
combinators.extras

Inputs

quot	a quotation

Outputs

quot	a quotation

Word description
Calls a quotation with three values on the stack, restoring the values under the topmost item on the stack.

Definition

USING: generalizations kernel ;

IN: combinators.extras

: 3keep-1up ( quot -- quot ) 3keep 1 4 0 nrotated ; inline