[PATCH] substitute: Close the download port after substitution finished.

[宋文武]

* guix/scripts/substitute.scm (progress-substitution): Call 'close-port'
after 'restore-file'.
---
 guix/scripts/substitute.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm
index 19212d749..3dcf42d0d 100755
--- a/guix/scripts/substitute.scm
+++ b/guix/scripts/substitute.scm
@@ -961,6 +961,7 @@ DESTINATION as a nar file.  Verify the substitute against 
ACL."
                                       progress)))
       ;; Unpack the Nar at INPUT into DESTINATION.
       (restore-file input destination)
+      (close-port input)
 
       ;; Skip a line after what 'progress-reporter/file' printed, and another
       ;; one to visually separate substitutions.
-- 
2.13.3