chain ( quots -- quot )


Vocabulary
combinators.extras

Inputs
quotsan object


Outputs
quotan object


Definition
USING: kernel sequences ;

IN: combinators.extras

MACRO: chain ( quots -- quot )
<reversed> [ ] [ swap compose [ [ f ] if* ] curry ] reduce ;