layout-up-to-date? ( object -- ? )

Vocabulary

classes.tuple.private

Inputs

object

an object

Outputs

?

an object

Definition

USING: classes kernel ;

IN: classes.tuple.private

: layout-up-to-date? ( object -- ? )
    dup tuple?
    [ [ layout-of ] [ class-of tuple-layout ] bi eq? ]
    [ drop t ] if ;