tuple-layout-array

Vocabulary

bootstrap.image.private

Definition

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

IN: bootstrap.image.private

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

Methods

USING: bootstrap.image.private kernel math sequences ;

M: tuple-layout-array prepare-object
    [ [ dup integer? [ <fake-bignum> ] when ] map emit-array ]
    cache-eql-object ;