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

Vocabulary

classes.tuple.private

Inputs

class	an object
superclass	an object
slots	an object

Outputs

?

an object

Definition

USING: classes kernel words ;

IN: classes.tuple.private

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