summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-03-19 11:23:47 +0100
committerLudovic Courtès <ludo@gnu.org>2015-03-19 13:00:20 +0100
commit284fe3139459e80a65305c7d19846c501d8bd179 (patch)
tree619febb088116b63ae525d2aebae373b4f57c024 /guix
parentc90a50eb68b458337ae9d9474d8c6f361b308251 (diff)
lint: Change misleading variable name.
* guix/scripts/lint.scm (probe-uri) <'ftp>: Rename 'port' to 'conn'.
Diffstat (limited to 'guix')
-rw-r--r--guix/scripts/lint.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm
index 69717b6317..681e557d2c 100644
--- a/guix/scripts/lint.scm
+++ b/guix/scripts/lint.scm
@@ -259,15 +259,15 @@ response from URI, and additional details, such as the actual HTTP response."
('ftp
(catch #t
(lambda ()
- (let ((port (ftp-open (uri-host uri) 21)))
+ (let ((conn (ftp-open (uri-host uri) 21)))
(define response
(dynamic-wind
(const #f)
(lambda ()
- (ftp-chdir port (dirname (uri-path uri)))
- (ftp-size port (basename (uri-path uri))))
+ (ftp-chdir conn (dirname (uri-path uri)))
+ (ftp-size conn (basename (uri-path uri))))
(lambda ()
- (ftp-close port))))
+ (ftp-close conn))))
(values 'ftp-response #t)))
(lambda (key . args)
(case key