diff options
| -rw-r--r-- | modules/ssh/tunnel.scm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/modules/ssh/tunnel.scm b/modules/ssh/tunnel.scm index 53f65ec..15913b3 100644 --- a/modules/ssh/tunnel.scm +++ b/modules/ssh/tunnel.scm @@ -227,9 +227,7 @@ unspecified." (inet-aton (tunnel-host tunnel)) (tunnel-host-port tunnel))) - (let* ((timeout (tunnel-timeout tunnel)) - (timeout-s (and timeout (quotient timeout 1000000))) - (timeout-us (and timeout (remainder timeout 1000000)))) + (let ((timeout (tunnel-timeout tunnel))) (while (connected? (tunnel-session tunnel)) (receive (channel port) (channel-accept-forward (tunnel-session tunnel) 1000) |