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

Prev:	growing-circular-push ( elt circular -- )
Next:	circular-loop ( ... 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 each call yields f in succession.

Definition

USING: circular.private kernel ;

IN: circular

: circular-while
    ( ... circular quot: ( ... obj -- ... ? ) -- ... )
    [ clone ] dip [ <circular-iterator> ] dip (circular-while) ;
    inline