git: Check whether 'clone-init-options' is defined.

This is a followup to 195f0d05c3.

* guix/git.scm (clone*): Check whether 'clone-init-options' is defined
before using it.
This commit is contained in:
Ludovic Courtès 2017-11-11 18:38:27 +01:00
parent 4564782c3d
commit b1488c7653
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5

View File

@ -58,7 +58,10 @@ (define (clone* url directory)
;; Note: Explicitly pass options to work around the invalid default
;; value in Guile-Git: <https://bugs.gnu.org/29238>.
(clone url directory (clone-init-options)))
(if (module-defined? (resolve-interface '(git))
'clone-init-options)
(clone url directory (clone-init-options))
(clone url directory)))
(lambda _
(false-if-exception (rmdir directory)))))