?node? ( object -- ? )

Vocabulary

unrolled-lists.private

Inputs and outputs

object	an object
?	a boolean

Word description

Tests if the object is an instance of the ?node class.

Definition

USING: classes.tuple.private kernel kernel.private slots.private
;

IN: unrolled-lists.private

: ?node? ( object -- ? )
    dup tag 1 eq?
    [ drop t ]
    [ dup tuple? [ layout-of 7 slot \ node eq? ] [ drop f ] if ]
    if ;