circular-loop ( ... circular quot: ( ... obj -- ... ? ) -- ... )
Circular sequences

Prev:

circular-while ( ... circular quot: ( ... obj -- ... ? ) -- ... )

Vocabulary
circular

Inputs

circular	a circular
quot	a quotation

Outputs
None

Word description
Calls quot on each element of the sequence until one call yields f.

Notes
This rotates the circular object after each call, so the next element to be applied will always be the first element.

Definition

USING: kernel sequences ;

IN: circular

: circular-loop
    ( ... circular quot: ( ... obj -- ... ? ) -- ... )
    [ clone ] dip [ [ first ] ] dip compose
    [ [ rotate-circular ] bi ] curry curry loop ; inline