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

diff --git a/extra/cursors/cursors.factor b/extra/cursors/cursors.factor
index d4ad091078bbe114c5788e48fc6c647ef6157b5f..3c928cc02eec19bc5bbe95f8d7fd42c2fcda3353 100644 (file)
--- 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