diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2010-05-12 12:22:40 +0000 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2010-05-12 12:22:40 +0000 |
| commit | 3b9cee463820f543b5d4f790097773b4f7ba8771 (patch) | |
| tree | 3389c667dd07fb241ce764cc6a7b876eddd2549c /maintainers | |
| parent | 9ec34da2ee947930621f68b1856a636b46391ed4 (diff) | |
| download | nixpkgs-3b9cee463820f543b5d4f790097773b4f7ba8771.tar nixpkgs-3b9cee463820f543b5d4f790097773b4f7ba8771.tar.gz nixpkgs-3b9cee463820f543b5d4f790097773b4f7ba8771.tar.bz2 nixpkgs-3b9cee463820f543b5d4f790097773b4f7ba8771.tar.lz nixpkgs-3b9cee463820f543b5d4f790097773b4f7ba8771.tar.xz nixpkgs-3b9cee463820f543b5d4f790097773b4f7ba8771.tar.zst nixpkgs-3b9cee463820f543b5d4f790097773b4f7ba8771.zip | |
gnupdate: Fix unbound-variable in `%ftp-login'.
* maintainers/scripts/gnu/gnupdate.scm (%ftp-login): Bind `command' to the command. svn path=/nixpkgs/trunk/; revision=21742
Diffstat (limited to 'maintainers')
| -rw-r--r-- | maintainers/scripts/gnu/gnupdate.scm | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/maintainers/scripts/gnu/gnupdate.scm b/maintainers/scripts/gnu/gnupdate.scm index c0018466588..33a2d530b22 100644 --- a/maintainers/scripts/gnu/gnupdate.scm +++ b/maintainers/scripts/gnu/gnupdate.scm @@ -308,12 +308,13 @@ (throw 'ftp-error port command code message)))) (define (%ftp-login user pass port) - (display (string-append "USER " user (string #\newline)) port) - (let-values (((code message) (%ftp-listen port))) - (case code - ((230) #t) - ((331) (%ftp-command (string-append "PASS " pass) 230 port)) - (else (throw 'ftp-error port command code message))))) + (let ((command (string-append "USER " user (string #\newline)))) + (display command port) + (let-values (((code message) (%ftp-listen port))) + (case code + ((230) #t) + ((331) (%ftp-command (string-append "PASS " pass) 230 port)) + (else (throw 'ftp-error port command code message)))))) (define (ftp-open host) (catch 'getaddrinfo-error |