From 22237a6b70f74d233b8d336616fc9abcedff11bb Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Thu, 5 Mar 2026 16:24:03 +0100
Subject: gnu: guile-reader: Build from a version-control checkout.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* gnu/packages/guile-xyz.scm (guile-reader)[source]: Switch to ‘git-fetch’.
[arguments]: New field.
[native-inputs]: Add ‘autoconf, ‘automake‘, ‘libtool’, ‘gnu-gettext’, and
‘texinfo’.

Change-Id: I36075fbd232636f87f03ca19805499df6bbc8e34
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/packages/guile-xyz.scm | 30 +++++++++++++++++++++++++-----
 1 file changed, 25 insertions(+), 5 deletions(-)

(limited to 'gnu')

diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index 82c11fbe6f0..bf83d4f3bad 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -3811,14 +3811,34 @@ quotes.")
     (name "guile-reader")
     (version "0.6.4")
     (source  (origin
-               (method url-fetch)
-               (uri (string-append "mirror://savannah/guile-reader/guile-reader-"
-                                   version ".tar.gz"))
+               (method git-fetch)
+               (uri (git-reference
+                      (url
+                       "https://https.git.savannah.gnu.org/git/guile-reader.git")
+                      (commit (string-append "v" version))))
+               (file-name (git-file-name name version))
                (sha256
                 (base32
-                 "0nqkk4x18i7p3k9jxld4fnk8d69bq9ag6hqsyjzbfw9fmhrh08kb"))))
+                 "0y3dq509hwm30ixb3cs3wci2lpni78438q7zz8f7way8vqp5164a"))))
     (build-system gnu-build-system)
-    (native-inputs (list pkg-config gperf))
+    (arguments
+     (list #:phases
+           #~(modify-phases %standard-phases
+               (add-before 'bootstrap 'copy-config.rpath
+                 (lambda* (#:key inputs #:allow-other-keys)
+                   ;; This file is not automatically copied by 'autoreconf'.
+                   (let ((config-rpath (search-input-file
+                                        inputs
+                                        "/share/gettext/config.rpath")))
+                     (install-file config-rpath "build-aux")))))))
+    (native-inputs
+     (list autoconf
+           automake
+           libtool
+           gnu-gettext                 ;for 'AC_LIB_LINKFLAGS_FROM_LIBS' macro
+           texinfo
+           pkg-config
+           gperf))
     (inputs (list guile-3.0))
     (synopsis "Framework for building readers for GNU Guile")
     (description
-- 
cgit v1.3