From 0ed74c3b9219250c8c30fb2cf034e663fd687328 Mon Sep 17 00:00:00 2001
From: "Artyom V. Poptsov" <poptsov.artyom@gmail.com>
Date: Sat, 25 Oct 2025 11:40:03 +0300
Subject: [PATCH] gnu: uucp: Use GEXPs.

* gnu/packages/uucp.scm (uucp) [arguments]: Use GEXPs.

Change-Id: I482d4237324e23725dcaabc9dbe0f8406f01e3da
---
 gnu/packages/uucp.scm | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

diff --git a/gnu/packages/uucp.scm b/gnu/packages/uucp.scm
index 8d8258dd3ae..cde94ededbd 100644
--- a/gnu/packages/uucp.scm
+++ b/gnu/packages/uucp.scm
@@ -48,18 +48,17 @@
                 "0b5nhl9vvif1w3wdipjsk8ckw49jj1w85xw1mmqi3zbcpazia306"))))
     (build-system gnu-build-system)
     (arguments
-     '(#:phases
-       (modify-phases %standard-phases
-         (replace 'configure
-           (lambda* (#:key outputs #:allow-other-keys)
-             ;; The old 'configure' script doesn't support the arguments
-             ;; that we pass by default.
-             (setenv "CONFIG_SHELL" (which "sh"))
-             (let ((out (assoc-ref outputs "out")))
-               (invoke "./configure"
-                       (string-append "--prefix=" out)
-                       (string-append "--infodir=" out
-                                      "/share/info"))))))))
+     (list #:phases
+           #~(modify-phases %standard-phases
+               (replace 'configure
+                 (lambda _
+                   ;; The old 'configure' script doesn't support the arguments
+                   ;; that we pass by default.
+                   (setenv "CONFIG_SHELL" (which "sh"))
+                   (invoke "./configure"
+                           (string-append "--prefix=" #$output)
+                           (string-append "--infodir=" #$output
+                                          "/share/info")))))))
     (native-inputs (list gcc-13))
     (home-page "https://www.gnu.org/software/uucp/uucp.html")
     (synopsis "UUCP protocol implementation")