diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-09-25 12:28:55 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-09-25 18:45:50 +0200 |
| commit | f85dbc4f3bcdc9f11cea9cca4feffee2e57a4412 (patch) | |
| tree | 4758096f5f45358648ab2af7b855cab5d38b6b7d /guix | |
| parent | cfe19684ea21feaee97d5c31e248b5a69921f784 (diff) | |
| download | gnu-guix-f85dbc4f3bcdc9f11cea9cca4feffee2e57a4412.tar gnu-guix-f85dbc4f3bcdc9f11cea9cca4feffee2e57a4412.tar.gz | |
substitute: Progress port really closes underlying port.
* guix/scripts/substitute.scm (progress-report-port): Use 'close-port'
instead of 'close-connection'. Move 'stop' call first.
Diffstat (limited to 'guix')
| -rwxr-xr-x | guix/scripts/substitute.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm index 6d31dfdaa4..50c6a22064 100755 --- a/guix/scripts/substitute.scm +++ b/guix/scripts/substitute.scm @@ -837,8 +837,8 @@ REPORTER, which should be a <progress-reporter> object." (make-custom-binary-input-port "progress-port-proc" read! #f #f (lambda () - (close-connection port) - (stop))))))) + (stop) + (close-port port))))))) (define-syntax with-networking (syntax-rules () |