diff options
| -rw-r--r-- | guix/ftp-client.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/guix/ftp-client.scm b/guix/ftp-client.scm index f02d460061..e76f08afd4 100644 --- a/guix/ftp-client.scm +++ b/guix/ftp-client.scm @@ -140,8 +140,9 @@ TIMEOUT, an ETIMEDOUT error is raised." (let loop ((addresses addresses)) (let* ((ai (car addresses)) - (s (socket (addrinfo:fam ai) SOCK_STREAM ;TCP only - (addrinfo:protocol ai)))) + (s (socket (addrinfo:fam ai) + ;; TCP/IP only + SOCK_STREAM IPPROTO_IP))) (catch 'system-error (lambda () |