summaryrefslogtreecommitdiff
path: root/guix/scripts/substitute.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-09-25 12:28:55 +0200
committerLudovic Courtès <ludo@gnu.org>2018-09-25 18:45:50 +0200
commitf85dbc4f3bcdc9f11cea9cca4feffee2e57a4412 (patch)
tree4758096f5f45358648ab2af7b855cab5d38b6b7d /guix/scripts/substitute.scm
parentcfe19684ea21feaee97d5c31e248b5a69921f784 (diff)
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/scripts/substitute.scm')
-rwxr-xr-xguix/scripts/substitute.scm4
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 ()