define-new-tuple-class ( class superclass slots -- )

Vocabulary

classes.tuple.private

Inputs

class	an object
superclass	an object
slots	an object

Outputs

None

Definition

USING: classes.private classes.tuple kernel words ;

IN: classes.tuple.private

: define-new-tuple-class ( class superclass slots -- )
    [ drop f f tuple-class define-class ]
    [ nip "slots" set-word-prop ] [ 2drop update-classes ] 3tri
    ;