diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-06-12 10:41:37 +0400 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-06-12 10:41:37 +0400 |
| commit | 9ac818dfd5b0fda1079152e47983dafbdb8cea45 (patch) | |
| tree | 36803091f1e8974d8e621cacd54147b9f648d77e /modules/ssh | |
| parent | node.scm (rexec): Read all output lines (diff) | |
| download | guile-ssh-9ac818dfd5b0fda1079152e47983dafbdb8cea45.tar.gz | |
tunnel.scm (make-tunnel-channel): Use 'unless'
* modules/ssh/tunnel.scm (make-tunnel-channel): Use 'unless' instead of 'or'
for error checking.
Diffstat (limited to 'modules/ssh')
| -rw-r--r-- | modules/ssh/tunnel.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/modules/ssh/tunnel.scm b/modules/ssh/tunnel.scm index 630cc56..99bdbb7 100644 --- a/modules/ssh/tunnel.scm +++ b/modules/ssh/tunnel.scm @@ -1,6 +1,6 @@ ;;; tunnel.scm -- SSH tunnels -;; Copyright (C) 2015 Artyom V. Poptsov <poptsov.artyom@gmail.com> +;; Copyright (C) 2015, 2016 Artyom V. Poptsov <poptsov.artyom@gmail.com> ;; ;; This file is a part of Guile-SSH. ;; @@ -87,8 +87,8 @@ (define (make-tunnel-channel tunnel) (let ((channel (make-channel (tunnel-session tunnel)))) - (or channel - (error "Could not make a channel" tunnel)) + (unless channel + (error "Could not make a channel" tunnel)) channel)) (define (tunnel-open-forward-channel tunnel) |