diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-03-19 11:23:47 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-03-19 13:00:20 +0100 |
| commit | 284fe3139459e80a65305c7d19846c501d8bd179 (patch) | |
| tree | 619febb088116b63ae525d2aebae373b4f57c024 /guix/scripts | |
| parent | c90a50eb68b458337ae9d9474d8c6f361b308251 (diff) | |
| download | guix-patches-284fe3139459e80a65305c7d19846c501d8bd179.tar guix-patches-284fe3139459e80a65305c7d19846c501d8bd179.tar.gz | |
lint: Change misleading variable name.
* guix/scripts/lint.scm (probe-uri) <'ftp>: Rename 'port' to 'conn'.
Diffstat (limited to 'guix/scripts')
| -rw-r--r-- | 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 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 |