sequences: making copy-state indices integers.

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index c40f9c31b02148117b479f484dbf4f387ba41412..a711f645af9745dd9603e57974ccc8507ccf8164 100644 (file)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -283,9 +283,9 @@ ERROR: integer-length-expected obj ;
     dup integer? [ integer-length-expected ] unless ; inline
 
 TUPLE: copy-state
-    { src-i read-only }
+    { src-i integer read-only }
     { src read-only }
-    { dst-i read-only }
+    { dst-i integer read-only }
     { dst read-only } ;
 
 C: <copy> copy-state