01/03: lint: Change misleading variable name.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 284fe3139459e80a65305c7d19846c501d8bd179
Author: Ludovic Courtès <address@hidden>
Date:   Thu Mar 19 11:23:47 2015 +0100

    lint: Change misleading variable name.
    
    * guix/scripts/lint.scm (probe-uri) <'ftp>: Rename 'port' to 'conn'.
---
 guix/scripts/lint.scm |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm
index 69717b6..681e557 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