error-class

Vocabulary

classes.error

Definition

USING: classes.tuple words ;

IN: classes.error

PREDICATE: error-class < tuple-class "error-class" word-prop ;

Methods

USING: classes.error classes.private generic kernel words ;

M: error-class reset-class
    [ M\ error-class reset-class (call-next-method) ]
    [ "error-class" remove-word-prop ] bi ;


USING: classes.error see see.private ;

M: error-class see* see-class ;


USING: accessors classes.error combinators prettyprint.backend
prettyprint.sections see.private sequences vocabs.prettyprint
words ;

M: error-class see-class*
    <colon \ ERROR: pprint-word {
        [ pprint-word ]
        [ superclass. ]
        [
            <block "slots" word-prop
            [ name>> pprint-slot-name ] each block> pprint-;
        ]
        [ tuple-declarations. ]
    } cleave block> ;