keeping ( n quot -- quot' )

Vocabulary

combinators.short-circuit.private

Inputs

n	an object
quot	an object

Outputs

quot'

an object

Definition

USING: generalizations kernel math ;

IN: combinators.short-circuit.private

MACRO: keeping ( n quot -- quot' )
    swap dup 1 + [ [ nkeep ] 2curry ] dip [ nrot ] curry compose
    ;