grouping: integer slots in circular-slice.

diff --git a/basis/grouping/grouping.factor b/basis/grouping/grouping.factor
index 9c849e9b696ebccd856f4c6558f57baf5e998ddd..233d793483bc21f8f3f785ec26fd22efade18f99 100644 (file)
--- a/basis/grouping/grouping.factor
+++ b/basis/grouping/grouping.factor
@@ -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