<irc-channel-chat> ( name -- irc-channel-chat )

Vocabulary

irc.client.chats

Inputs

name

an object

Outputs

irc-channel-chat

an object

Definition

USING: accessors concurrency.mailboxes kernel ;

IN: irc.client.chats

: <irc-channel-chat> ( name -- irc-channel-chat )
    irc-channel-chat new swap >>name <mailbox> >>in-messages
    f >>password H{ } clone >>participants
    t >>clear-participants ;