git: 'latest-repository-commit' calls 'repository-close!'.

* guix/git.scm (latest-repository-commit): Call 'repository-close!' when it exists.
2018-03-26 00:12:52 +02:00 · 2018-03-26 00:12:52 +02:00 · dfca24180c
parent ae0a5a7edc
commit dfca24180c
1 changed files with 7 additions and 0 deletions
--- a/guix/git.scm
+++ b/guix/git.scm
@ -147,6 +147,13 @@ Git repositories are kept in the cache directory specified by
     (when cache-exists?
       (remote-fetch (remote-lookup repository "origin")))
     (switch-to-ref repository ref)
+
+     ;; Reclaim file descriptors and memory mappings associated with
+     ;; REPOSITORY as soon as possible.
+     (when (module-defined? (resolve-interface '(git repository))
+                            'repository-close!)
+       (repository-close! repository))
+
     (copy-to-store store cache-dir
                    #:url url
                    #:repository repository))))