zip-cursor

Vocabulary

cursors

Definition

IN: cursors

TUPLE: zip-cursor { keys read-only } { values read-only } ;

Methods

USING: accessors combinators.short-circuit cursors kernel ;

M: zip-cursor cursor-compatible?
    {
        [ [ zip-cursor? ] both? ]
        [ [ keys>> ] bi@ cursor-compatible? ]
        [ [ values>> ] bi@ cursor-compatible? ]
    } 2&& ; inline


USING: accessors cursors kernel math.order ;

M: zip-cursor cursor-distance-hint
    [ [ keys>> ] bi@ cursor-distance-hint ]
    [ [ values>> ] bi@ cursor-distance-hint ] 2bi min ; inline


USING: accessors cursors kernel ;

M: zip-cursor cursor-key-value
    [ keys>> cursor-value-unsafe ]
    [ values>> cursor-value-unsafe ] bi ; inline


USING: accessors cursors kernel ;

M: zip-cursor cursor-valid?
    [ keys>> ] [ values>> ] bi [ cursor-valid? ] both? ; inline


USING: accessors combinators.short-circuit cursors kernel ;

M: zip-cursor cursor=
    { [ [ keys>> ] bi@ cursor= ] [ [ values>> ] bi@ cursor= ] }
    2|| ; inline


USING: accessors cursors kernel ;

M: zip-cursor inc-cursor
    [ keys>> inc-cursor ] [ values>> inc-cursor ] bi
    <zip-cursor> ; inline