nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

lint: Change misleading variable name. 

* guix/scripts/lint.scm (probe-uri) <'ftp>: Rename 'port' to 'conn'.
This commit is contained in:
Ludovic Courtès 2015-03-19 11:23:47 +01:00
parent c90a50eb68
commit 284fe31394
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
guix/scripts/lint.scm
View File

@ -259,15 +259,15 @@ response from URI, and additional details, such as the actual HTTP response."
('ftp ('ftp
(catch #t (catch #t
(lambda () (lambda ()
(let ((port (ftp-open (uri-host uri) 21))) (let ((conn (ftp-open (uri-host uri) 21)))
(define response (define response
(dynamic-wind (dynamic-wind
(const #f) (const #f)
(lambda () (lambda ()
(ftp-chdir port (dirname (uri-path uri))) (ftp-chdir conn (dirname (uri-path uri)))
(ftp-size port (basename (uri-path uri)))) (ftp-size conn (basename (uri-path uri))))
(lambda () (lambda ()
(ftp-close port)))) (ftp-close conn))))
(values 'ftp-response #t))) (values 'ftp-response #t)))
(lambda (key . args) (lambda (key . args)
(case key (case key