keep-1up ( quot -- quot )
Extra combinators
Prev:quad-curry@ ( w x y z q -- p' q' r' s' )
Next:keep-2up ( quot -- quot )


Vocabulary
combinators.extras

Inputs
quota quotation


Outputs
quota quotation


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

Definition
USING: generalizations kernel ;

IN: combinators.extras

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