tuple-class-unchanged? ( class superclass slots -- ? )

Vocabulary
classes.tuple.private

Definition

USING: classes kernel words ;

IN: classes.tuple.private

: tuple-class-unchanged? ( class superclass slots -- ? )
    [ [ superclass ] [ bootstrap-word ] bi* = ]
    [ [ "slots" word-prop ] dip = ] bi-curry* bi and ;