steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

locals-and-roots
John Benediktsson 2016-03-20 14:50:33 -07:00
parent a067b13311
commit e2a339cb60
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/cursors/cursors.factor
View File

@ -511,7 +511,7 @@ M: zip-cursor cursor= ( cursor cursor -- ? )
M: zip-cursor cursor-distance-hint ( cursor cursor -- n ) M: zip-cursor cursor-distance-hint ( cursor cursor -- n )
[ [ keys>> ] bi@ cursor-distance-hint ] [ [ 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' ) M: zip-cursor inc-cursor ( cursor -- cursor' )
[ keys>> inc-cursor ] [ values>> inc-cursor ] bi <zip-cursor> ; inline [ keys>> inc-cursor ] [ values>> inc-cursor ] bi <zip-cursor> ; inline