tuple-layout-array? ( object -- ? )

Vocabulary

bootstrap.image.private

Inputs and outputs

object	an object
?	a boolean

Word description

Tests if the object is an instance of the tuple-layout-array class.

Definition

USING: arrays classes.tuple combinators.short-circuit kernel
math sequences sequences.private ;

IN: bootstrap.image.private

: tuple-layout-array? ( object -- ? )
    dup array? [
        dup length 5 >= [
            {
                [ first-unsafe tuple-class? ]
                [ second-unsafe fixnum? ]
                [ third-unsafe fixnum? ]
            } 1&&
        ] [ drop f ] if
    ] [ drop f ] if ;