cursors: zip-cursor distance-hint should be min length.

factor · Mar 20, 2016 · e2a339c · e2a339c
1 parent a067b13
commit e2a339c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/extra/cursors/cursors.factor b/extra/cursors/cursors.factor
@@ -511,7 +511,7 @@ M: zip-cursor cursor= ( cursor cursor -- ? )
 
 M: zip-cursor cursor-distance-hint ( cursor cursor -- n )
     [ [ keys>> ] bi@ cursor-distance-hint ]
-    [ [ values>> ] bi@ cursor-distance-hint ] 2bi max ; inline
+    [ [ values>> ] bi@ cursor-distance-hint ] 2bi min ; inline
 
 M: zip-cursor inc-cursor ( cursor -- cursor' )
     [ keys>> inc-cursor ] [ values>> inc-cursor ] bi <zip-cursor> ; inline