Avoid gratuitous timeout

This commit is contained in:
Tony Garnock-Jones 2014-06-30 08:20:09 -04:00
parent 0a5abb8fff
commit 974c8a5807
1 changed files with 1 additions and 0 deletions

View File

@ -129,6 +129,7 @@
[(message (tcp-channel (== remote-addr) (== local-tcp-addr) bs) _ _)
(transition state (send (tcp-channel remote-addr local-user-addr bs)))]
[(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")]
[_ #f]))
0