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.
This commit is contained in:
Ludovic Courtès 2018-09-25 12:28:55 +02:00
parent cfe19684ea
commit f85dbc4f3b
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 2 deletions

View File

@ -837,8 +837,8 @@ REPORTER, which should be a <progress-reporter> object."
(make-custom-binary-input-port "progress-port-proc" (make-custom-binary-input-port "progress-port-proc"
read! #f #f read! #f #f
(lambda () (lambda ()
(close-connection port) (stop)
(stop))))))) (close-port port)))))))
(define-syntax with-networking (define-syntax with-networking
(syntax-rules () (syntax-rules ()