?define-irc-trailing ( class slot-name -- )

Vocabulary

irc.messages.base.private

Inputs

class	an object
slot-name	an object

Outputs

None

Definition

USING: generic.parser irc.messages.base kernel sequences words ;

IN: irc.messages.base.private

: ?define-irc-trailing ( class slot-name -- )
    [
        [ \ irc-trailing-slot create-method-in ] dip first
        [ [ drop ] ] dip [ ] curry compose define
    ] [ drop ] if* ;