(connect-irc) ( -- )

Vocabulary

irc.client.internals

Inputs

None

Outputs

None

Definition

USING: accessors concurrency.mailboxes irc.client.base
irc.client.chats kernel ;

IN: irc.client.internals

: (connect-irc) ( -- )
    try-connect [
        [ irc> ] dip >>stream t >>is-running in-messages>>
        [ irc-connected ] dip mailbox-put
    ] [ (terminate-irc) ] if* ;