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

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