do-connect ( server port quot: ( host port -- stream ) attempts -- stream/f )

Vocabulary

irc.client.internals

Inputs

server	an object
port	an object
quot	a quotation with stack effect ( host port -- stream )
attempts	an object

Outputs

stream/f

an object

Definition

USING: combinators continuations kernel math threads ;

IN: irc.client.internals

: do-connect
    ( server port quot: ( host port -- stream ) attempts -- stream/f )
    dup 0 > [
        [ drop ( host port -- stream ) call-effect ]
        [ drop 15 sleep 1 - do-connect ] recover
    ] [ 4drop f ] if ;