tuple-instance? ( object class offset -- ? )

Vocabulary

classes.tuple.private

Inputs

object	an object
class	an object
offset	an object

Outputs

?

an object

Definition

USING: kernel math.private slots.private ;

IN: classes.tuple.private

: tuple-instance? ( object class offset -- ? )
    rot dup tuple? [
        layout-of 2dup 1 slot fixnum<=
        [ swap slot eq? ] [ 3drop f ] if
    ] [ 3drop f ] if ; inline