make-final ( class -- )

Vocabulary

classes.tuple

Inputs

class

an object

Outputs

None

Definition

IN: classes.tuple

GENERIC: make-final ( class -- )

Methods

USING: classes classes.private classes.tuple kernel words ;

M: tuple-class make-final
    [ dup class-usage ?metaclass-changed ]
    [ t "final" set-word-prop ] bi ;