summaryrefslogtreecommitdiff
path: root/guix/scripts/lint.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-11-22 14:35:28 +0100
committerLudovic Courtès <ludo@gnu.org>2015-11-22 14:35:28 +0100
commit862d2479f686abaa4d1881ad6eafb689bec157e8 (patch)
tree0c86f1e42cc5d4c33dbe95890ce42867fc0a7bf3 /guix/scripts/lint.scm
parentd6d33984df8df4f061eadaac1d71119c97c0db9f (diff)
ftp-client: Default port for 'ftp-open' is now "ftp".
* guix/ftp-client.scm (ftp-open): Change default #:port to "ftp". * guix/scripts/lint.scm (probe-uri): Remove 'port' parameter to 'ftp-open'.
Diffstat (limited to 'guix/scripts/lint.scm')
-rw-r--r--guix/scripts/lint.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm
index a7618ee286..034f0f95ee 100644
--- a/guix/scripts/lint.scm
+++ b/guix/scripts/lint.scm
@@ -316,7 +316,7 @@ for connections to complete; when TIMEOUT is #f, wait as long as needed."
('ftp
(catch #t
(lambda ()
- (let ((conn (ftp-open (uri-host uri) 21 #:timeout timeout)))
+ (let ((conn (ftp-open (uri-host uri) #:timeout timeout)))
(define response
(dynamic-wind
(const #f)