3keep-under ( quot -- quot' )
Extra combinators

Prev:	2keep-under ( quot -- quot' )
Next:	4keep-under ( quot -- quot' )

Vocabulary
combinators.extras

Inputs

quot	a quotation

Outputs
None

Word description
Calls a quotation with three values on the stack, restoring the values below the outputs when the quotation returns.

Definition

USING: combinators.smart generalizations kernel math ;

IN: combinators.extras

MACRO: 3keep-under ( quot -- quot' )
    dup outputs 3 + [ [ 3keep 3 ] curry ] dip
    [ 0 -nrotated ] curry compose ;