grouping: integer slots in circular-slice.
parent
5d6632514a
commit
37f7fa95ca
|
@ -103,7 +103,10 @@ PRIVATE>
|
|||
|
||||
: all-eq? ( seq -- ? ) [ eq? ] monotonic? ;
|
||||
|
||||
TUPLE: circular-slice { from read-only } { to read-only } { seq read-only } ;
|
||||
TUPLE: circular-slice
|
||||
{ from integer read-only }
|
||||
{ to integer read-only }
|
||||
{ seq read-only } ;
|
||||
|
||||
INSTANCE: circular-slice virtual-sequence
|
||||
|
||||
|
|
Loading…
Reference in New Issue