From 5b35c9adc899749a0bd96a0e6d2c3bbf88e38963 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Fri, 16 Apr 2021 18:00:44 +0200
Subject: git-download: Call 'libgit2-init!'.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Fixes <https://bugs.gnu.org/47797>.
Reported by Ingo Ruhnke <grumbel@gmail.com>
and Nicolò Balzarotti <anothersms@gmail.com>.

Regression introduced in c1940fde43c7aca37d67589cc5cb248086d17d56.

* guix/git-download.scm (git-predicate): Add call to 'libgit2-init!'.
---
 guix/git-download.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/guix/git-download.scm b/guix/git-download.scm
index 425184717a..199effece5 100644
--- a/guix/git-download.scm
+++ b/guix/git-download.scm
@@ -27,6 +27,7 @@ (define-module (guix git-download)
   #:use-module (guix packages)
   #:use-module (guix modules)
   #:autoload   (guix build-system gnu) (standard-packages)
+  #:autoload   (git bindings)   (libgit2-init!)
   #:autoload   (git repository) (repository-open
                                  repository-close!
                                  repository-discover
@@ -225,6 +226,7 @@ (define (git-predicate directory)
 
 The returned predicate takes two arguments FILE and STAT where FILE is an
 absolute file name and STAT is the result of 'lstat'."
+  (libgit2-init!)
   (catch 'git-error
     (lambda ()
       (let* ((files  (git-file-list directory))
-- 
cgit v1.2.3