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

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

Vocabulary
combinators.extras

Inputs

quot	a quotation

Outputs

quot	a quotation

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

Definition

USING: generalizations kernel ;

IN: combinators.extras

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