From 37f7fa95ca23d380a99c488a9aafdb7ad0e85608 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 16 Jul 2015 15:32:41 -0700
Subject: [PATCH] grouping: integer slots in circular-slice.

---
 basis/grouping/grouping.factor | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/basis/grouping/grouping.factor b/basis/grouping/grouping.factor
index 9c849e9b69..233d793483 100644
--- 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