PRIVATE>
-
M: circular virtual@ circular-wrap seq>> ; inline
-
: change-circular-start ( n circular -- )
! change start to (start + n) mod length
circular-wrap start<< ; inline
: <circular-string> ( n -- circular )
0 <string> <circular> ; inline
-
TUPLE: growing-circular < circular { length integer } ;
M: growing-circular length length>> ; inline