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

Prev:	3keep-under ( quot -- quot' )
Next:	dip-1up ( ..a d quot: ( ..a -- ..b o ) -- ..b d o )

Vocabulary
combinators.extras

Inputs

quot	a quotation

Outputs
None

Word description
Calls a quotation with four 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: 4keep-under ( quot -- quot' )
    dup outputs 4 + [ [ 4keep 4 ] curry ] dip
    [ 0 -nrotated ] curry compose ;