From e2a339cb60d21e1b865925c1aedb555834605af0 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sun, 20 Mar 2016 14:50:33 -0700 Subject: [PATCH] cursors: zip-cursor distance-hint should be min length. --- extra/cursors/cursors.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/cursors/cursors.factor b/extra/cursors/cursors.factor index d4ad091078..3c928cc02e 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