chain ( quots -- quot )

Vocabulary

combinators.extras

Inputs

quots

an object

Outputs

quot

an object

Definition

USING: kernel sequences ;

IN: combinators.extras

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