growing-circular-push ( elt circular -- )
Circular sequences
Prev:circular-push ( elt circular -- )
Next:circular-while ( ... circular quot: ( ... obj -- ... ? ) -- ... )


Vocabulary
circular

Inputs
eltan object
circulara circular


Outputs
None

Word description
Pushes an element onto a growing-circular object.

Definition
USING: accessors circular.private kernel math sequences ;

IN: circular

: growing-circular-push ( elt circular -- )
dup full?
[ circular-push ] [ [ 1 + ] change-length set-last ] if ;