diff --git a/extra/cursors/cursors.factor b/extra/cursors/cursors.factor index d4ad091078b..3c928cc02ee 100644 --- 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 ; inline