handle-disconnect ( error -- ? )

Vocabulary

irc.client.internals

Inputs

error

an object

Outputs

?

an object

Definition

USING: accessors irc.client.base kernel sequences ;

IN: irc.client.internals

: handle-disconnect ( error -- ? )
    [ irc> exceptions>> push ] when* irc> is-running>>
    [ (handle-disconnect) t ] [ f ] if ;