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

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

Vocabulary
combinators.extras

Inputs

quot	a quotation

Outputs

quot	a quotation

Word description
Calls a quotation with a value on the stack, restoring the value under the three topmost items on the stack.

Definition

USING: generalizations kernel ;

IN: combinators.extras

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