cursor-compatible? ( cursor cursor -- ? )

Vocabulary

cursors

Inputs

cursor	an object
cursor	an object

Outputs

?

an object

Definition

IN: cursors

GENERIC: cursor-compatible? ( cursor cursor -- ? )

Methods

USING: cursors kernel ;

M: end-of-stream cursor-compatible?
    drop finite-stream-cursor? ; inline


USING: accessors combinators.short-circuit cursors kernel ;

M: hash-set-cursor cursor-compatible?
    {
        [ [ hash-set-cursor? ] both? ]
        [ [ hash-set>> ] bi@ eq? ]
    } 2&& ; inline


USING: accessors combinators.short-circuit cursors kernel ;

M: hashtable-cursor cursor-compatible?
    {
        [ [ hashtable-cursor? ] both? ]
        [ [ hashtable>> ] bi@ eq? ]
    } 2&& ; inline


USING: cursors kernel ;

M: linear-cursor cursor-compatible? [ linear-cursor? ] both?
    ; inline


USING: accessors cursors kernel ;

M: map-cursor cursor-compatible?
    [ from>> ] bi@ cursor-compatible? ; inline


USING: cursors kernel ;

M: quadratic-cursor cursor-compatible?
    [ linear-cursor? ] both? ; inline


USING: accessors combinators.short-circuit cursors kernel ;

M: sequence-cursor cursor-compatible?
    { [ [ sequence-cursor? ] both? ] [ [ seq>> ] bi@ eq? ] } 2&&
    ; inline


USING: cursors kernel ;

M: stream-cursor cursor-compatible? 2drop f ; inline


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