diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-12-22 02:38:58 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-12-22 02:38:58 +0300 |
| commit | bf55e9496bfae7284a6752ec7aa80927101f908f (patch) | |
| tree | 3d280b7d380e0a192cb41d5c781d43c08bd79ea6 /modules/ssh/tunnel.scm | |
| parent | doc/logo-with-text.svg: Improve (diff) | |
| download | guile-ssh-bf55e9496bfae7284a6752ec7aa80927101f908f.tar.gz | |
modules/ssh/tunnel.scm (p1->p2?): Simplify the check
Diffstat (limited to 'modules/ssh/tunnel.scm')
| -rw-r--r-- | modules/ssh/tunnel.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/modules/ssh/tunnel.scm b/modules/ssh/tunnel.scm index f1093df..630cc56 100644 --- a/modules/ssh/tunnel.scm +++ b/modules/ssh/tunnel.scm @@ -156,7 +156,8 @@ procedures that operate on a <tunnel> object -- e.g. 'start-forward' or (define-syntax-rule (p1->p2? p1 p2) "Return #t if P1 and P2 are open ports and P1 has data that can be read, #f otherwise." - (and (not (or (port-closed? p1) (port-closed? p2))) + (and (not (port-closed? p1)) + (not (port-closed? p2)) (char-ready? p1))) (define-syntax cond-io |