diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2017-05-03 02:00:24 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2017-05-03 02:00:24 +0300 |
| commit | 43d6c8a60de27697c8934a9e1d07ac4f86e60679 (patch) | |
| tree | 9692aed143311850578df90c5ef6248c6c381efe | |
| parent | tunnel.scm (tunnel-timeout/s+us): New procedure. (diff) | |
| download | guile-ssh-43d6c8a60de27697c8934a9e1d07ac4f86e60679.tar.gz | |
tunnel.scm (main-loop/reverse): Remove unused code
* modules/ssh/tunnel.scm (main-loop/reverse): Remove unused code.
| -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) |