union-of-builtins? ( class -- ? )

Vocabulary

classes.union.private

Inputs

class

a class

Outputs

?

a boolean

Word description

t if the class either is a builtin-class or only contains builtin classes.

Definition

IN: classes.union.private

GENERIC: union-of-builtins? ( class -- ? )

Methods

USING: classes.builtin classes.union.private kernel ;

M: builtin-class union-of-builtins? drop t ;


USING: classes classes.union.private kernel ;

M: class union-of-builtins? drop f ;


USING: accessors classes.maybe classes.union.private ;

M: maybe union-of-builtins? class>> union-of-builtins? ;


USING: classes classes.union classes.union.private sequences ;

M: union-class union-of-builtins?
    class-members [ union-of-builtins? ] all? ;