(define-union-class) ( class members -- )

Vocabulary

classes.union.private

Inputs

class	a class
members	a sequence of classs

Outputs

None

Word description

Defines a union class.

Errors

Throws cannot-reference-self if the definition references itself.

Definition

USING: classes.private classes.union kernel ;

IN: classes.union.private

: (define-union-class) ( class members -- )
    check-self-reference f swap f union-class make-class-props
    (define-class) ;