enumeration-class
Enumeration classes

Prev:	Enumeration element syntax
Next:	enumeration-class? ( object -- ? )

Vocabulary
classes.enumeration

Class description
The class of enumeration class words.

Definition

USING: classes kernel words ;

IN: classes.enumeration

PREDICATE: enumeration-class < class
    "metaclass" word-prop enumeration-class eq? ;

Methods

USING: classes classes.enumeration classes.enumeration.private
combinators kernel math prettyprint.backend prettyprint.custom
prettyprint.sections see.private sequences vocabs.prettyprint ;

M: enumeration-class see-class*
    <colon \ ENUMERATION: pprint-word {
        [ pprint-word ]
        [
            superclass-of dup fixnum eq?
            [ drop ] [ "<" text pprint-word ] if
        ]
        [
            <block enum-member-list [
                dup length 1 =
                [ first text ] [
                    unclip string-wrapper boa prefix
                    pprint-object
                ] if
            ] each block> pprint-;
        ]
    } cleave block> ;