define-irc-class ( class params -- )

Vocabulary

irc.messages.base.private

Inputs

class	an object
params	an object

Outputs

None

Definition

USING: classes.tuple irc.messages.base kernel sequences ;

IN: irc.messages.base.private

: define-irc-class ( class params -- )
    [ { ":" "_" } member? ] reject [ irc-message ] dip
    define-tuple-class ;