define-error-class ( class superclass slots -- )

Vocabulary

classes.error

Inputs

class	an object
superclass	an object
slots	an object

Outputs

None

Definition

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

IN: classes.error

: define-error-class ( class superclass slots -- )
    error-slots {
        [ define-tuple-class ]
        [ 2drop reset-generic ]
        [ 2drop t "error-class" set-word-prop ]
        [
            2drop
            [ ] [ [ boa throw ] curry ]
            [ all-slots thrower-effect ] tri define-declared
        ]
    } 3cleave ;