diff options
| -rw-r--r-- | guix/ssh.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/ssh.scm b/guix/ssh.scm index 96e4af9179..cb560c0e9c 100644 --- a/guix/ssh.scm +++ b/guix/ssh.scm @@ -124,8 +124,8 @@ Throw an error on failure." (connect sock AF_UNIX ,socket-name) (let loop () - (match (select (list stdin sock) '() (list stdin stdout sock)) - ((reads writes ()) + (match (select (list stdin sock) '() '()) + ((reads () ()) (when (memq stdin reads) (match (read! stdin buffer) ((? zero?) ;EOF |