01/01: substitute: Close the download port after substitution finished.

[???]

iyzsong pushed a commit to branch master
in repository guix.

commit 4220514b8faa49f33a9c5b58a1bd1f2c6d385693
Author: 宋文武 <address@hidden>
Date:   Sat Sep 16 15:16:04 2017 +0800

    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 dd49cf1..61eff18 100755
--- a/guix/scripts/substitute.scm
+++ b/guix/scripts/substitute.scm
@@ -959,6 +959,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-proc' printed, and another one to
       ;; visually separate substitutions.