Avoid gratuitous timeout
This commit is contained in:
parent
0a5abb8fff
commit
974c8a5807
1
tcp.rkt
1
tcp.rkt
|
@ -129,6 +129,7 @@
|
||||||
[(message (tcp-channel (== remote-addr) (== local-tcp-addr) bs) _ _)
|
[(message (tcp-channel (== remote-addr) (== local-tcp-addr) bs) _ _)
|
||||||
(transition state (send (tcp-channel remote-addr local-user-addr bs)))]
|
(transition state (send (tcp-channel remote-addr local-user-addr bs)))]
|
||||||
[(message (timer-expired _ _) _ _)
|
[(message (timer-expired _ _) _ _)
|
||||||
|
#:when (< state 2) ;; we only care if we're not fully connected
|
||||||
(error 'spawn-relay "TCP relay process timed out waiting for peer")]
|
(error 'spawn-relay "TCP relay process timed out waiting for peer")]
|
||||||
[_ #f]))
|
[_ #f]))
|
||||||
0
|
0
|
||||||
|
|
Loading…
Reference in New Issue