From 284fe3139459e80a65305c7d19846c501d8bd179 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Thu, 19 Mar 2015 11:23:47 +0100 Subject: lint: Change misleading variable name. * guix/scripts/lint.scm (probe-uri) <'ftp>: Rename 'port' to 'conn'. --- guix/scripts/lint.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'guix/scripts/lint.scm') 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 @@ (define 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 -- cgit v1.2.3