diff options
| -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 |