definition-mixin? ( object -- ? )

Vocabulary

definitions

Inputs and outputs

object	an object
?	a boolean

Word description

Tests if the object is an instance of the definition-mixin class.

Definition

USING: classes.tuple.private help.tips help.topics kernel
kernel.private math.private slots.private vocabs ;

IN: definitions

: definition-mixin? ( object -- ? )
    dup tag 12 eq?
    [ drop t ] [
        dup dup tuple? [
            layout-of
            dup
            7
            slot
            \ link
            eq?
            [ drop t ]
            [
                dup
                1
                slot
                9
                fixnum>=
                [ 9 slot \ tip eq? ]
                [ drop f ]
                if
            ]
            if
        ] [ drop f ] if [ drop t ] [ vocab-spec? ] if
    ] if ;