From 3fab3a64393f16d0aba79e349abcb1a9abfb0352 Mon Sep 17 00:00:00 2001
From: Bruno Victal <mirai@makinata.eu>
Date: Mon, 9 Oct 2023 21:06:11 +0100
Subject: [PATCH] gnu: xmlto: Rewrite with G-Expressions.

* gnu/packages/xml.scm (xmlto)[arguments]: Rewrite with G-Expressions.

Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
---
 gnu/packages/xml.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/xml.scm b/gnu/packages/xml.scm
index 0273a599ea9..604d05e1eaf 100644
--- a/gnu/packages/xml.scm
+++ b/gnu/packages/xml.scm
@@ -1144,10 +1144,11 @@ code for classes that correspond to data structures defined by XMLSchema.")
     (build-system gnu-build-system)
     (arguments
      ;; Make sure the reference to util-linux's 'getopt' is kept in 'xmlto'.
-     '(#:configure-flags (list (string-append "GETOPT="
-                                              (assoc-ref %build-inputs
-                                                         "util-linux")
-                                              "/bin/getopt"))))
+     (list
+      #:configure-flags
+      #~(list (string-append "GETOPT="
+                             #$(this-package-input "util-linux")
+                             "/bin/getopt"))))
     (native-inputs
      (list util-linux))
     (inputs