chat-put ( message obj -- )

Vocabulary

irc.client.internals

Inputs

message	an object
obj	an object

Outputs

None

Definition

IN: irc.client.internals

GENERIC: chat-put ( message obj -- )

Methods

USING: accessors concurrency.mailboxes irc.client.chats
irc.client.internals ;

M: irc-chat chat-put in-messages>> mailbox-put ;


USING: irc.client.internals kernel sequences ;

M: sequence chat-put [ chat-put ] with each ;


USING: irc.client.base irc.client.chats irc.client.internals
kernel strings ;

M: string chat-put chat> +server-chat+ or chat-put ;


USING: irc.client.base irc.client.internals kernel words.symbol
;

M: symbol chat-put chat> [ chat-put ] [ drop ] if* ;