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

Vocabulary

classes.tuple.private

Inputs

class	an object
superclass	an object
slots	an object

Outputs

None

Definition

IN: classes.tuple.private

GENERIC#: (define-tuple-class) 2 ( class superclass slots -- )

Methods

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

M: tuple-class (define-tuple-class)
    pick reset-final 3dup tuple-class-unchanged?
    [ 2drop ?define-symbol ] [ redefine-tuple-class ] if ;


USING: classes.tuple.private words ;

M: word (define-tuple-class) define-new-tuple-class ;