in-multiplexer-loop ( -- ? )

Vocabulary

irc.client.internals

Inputs

None

Outputs

?

an object

Definition

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

IN: irc.client.internals

: in-multiplexer-loop ( -- ? )
    irc> in-messages>> mailbox-get {
        [ message-forwards ]
        [ process-message ]
        [ swap chat-put ]
        [ irc-end? not ]
    } cleave ;