substitute: Close port at the end of http-multiple-get.

* guix/scripts/substitute.scm (http-multiple-get): Add close-port call.

diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm
index 0777aa3..ba2b2d2 100755 (executable)
--- a/guix/scripts/substitute.scm
+++ b/guix/scripts/substitute.scm
@@ -537,6 +537,7 @@ initial connection on which HTTP requests are sent."
           (()
            (match (drop requests processed)
              (()
+              (close-port p)
               (reverse result))
              (remainder
               (connect p remainder result))))