container? ( object -- ? )

Vocabulary

cursors

Inputs and outputs

object	an object
?	a boolean

Word description

Tests if the object is an instance of the container class.

Definition

USING: classes.tuple.private hash-sets hashtables kernel
sequences slots.private ;

IN: cursors

: container? ( object -- ? )
    dup dup tuple? [
        layout-of
        7
        slot
        dup
        \ hashtable
        eq?
        [ drop t ]
        [ \ hash-set eq? ]
        if
    ] [ drop f ] if
    [ drop t ]
    [ dup sequence? [ drop t ] [ finite-stream-cursor? ] if ] if
    ;