(terminate-irc) ( -- )

Vocabulary

irc.client.internals

Inputs

None

Outputs

None

Definition

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

IN: irc.client.internals

: (terminate-irc) ( -- )
    irc> dup is-running>> [
        f >>is-running [ stream>> dispose ] keep
        [ in-messages>> ] [ out-messages>> ] bi 2array
        [ irc-end swap mailbox-put ] each
    ] [ drop ] if ;