Handbook
Glossary
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
;