sequences: use check-length to force integer partial dispatch in iteration.

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 36c757991d768465d94e74fa3a94d0e97ea588ea..06b1b0d4e91d52cbc392deb2f014cb77b2f9d5c3 100644 (file)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -276,6 +276,7 @@ INSTANCE: repetition immutable-sequence
 
 ERROR: integer-length-expected obj ;
 
+#! The check-length call forces partial dispatch
 : check-length ( n -- n )
     dup integer? [ integer-length-expected ] unless ; inline
 
@@ -308,7 +309,6 @@ C: <copy> copy-state
     [ swap length + ] dip lengthen ; inline
 
 : copy-unsafe ( src i dst -- )
-    #! The check-length call forces partial dispatch
     [ [ length check-length 0 ] keep ] 2dip <copy> (copy) drop ; inline
 
 : subseq-unsafe ( from to seq -- subseq )
@@ -381,7 +381,7 @@ PRIVATE>
 <PRIVATE
 
 : ((each)) ( seq -- n quot )
-    [ length ] keep [ nth-unsafe ] curry ; inline
+    [ length check-length ] keep [ nth-unsafe ] curry ; inline
 
 : (each) ( seq quot -- n quot' )
     [ ((each)) ] dip compose ; inline
@@ -402,7 +402,7 @@ PRIVATE>
     [ nth-unsafe ] bi-curry@ bi ; inline
 
 : ((2each)) ( seq1 seq2 -- n quot )
-    [ min-length ] 2keep [ 2nth-unsafe ] 2curry ; inline
+    [ min-length check-length ] 2keep [ 2nth-unsafe ] 2curry ; inline
 
 : (2each) ( seq1 seq2 quot -- n quot' )
     [ ((2each)) ] dip compose ; inline
@@ -412,7 +412,7 @@ PRIVATE>
 
 : (3each) ( seq1 seq2 seq3 quot -- n quot' )
     [
-        [ [ length ] tri@ min min ]
+        [ [ length ] tri@ min min check-length ]
         [ [ 3nth-unsafe ] 3curry ] 3bi
     ] dip compose ; inline