From 1961dd6a1869b021ad2274f6fa4520e2597bf578 Mon Sep 17 00:00:00 2001
From: "Artyom V. Poptsov" <poptsov.artyom@gmail.com>
Date: Wed, 5 Nov 2025 00:00:37 +0300
Subject: [PATCH] gnu: tla: Modernize the package.

* gnu/packages/version-control.scm (tla): Modernize the package.
[source]<snippet>: Don't return #t.
[arguments]<#:phases>: Use GEXPs.

Change-Id: I80e18380ae0c1f73515ef1e7943793fc0c38eeb2
---
 gnu/packages/version-control.scm | 39 +++++++++++++++-----------------
 1 file changed, 18 insertions(+), 21 deletions(-)

diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm
index a5ff72e57e3c8bcf94d681df73b856699d389642..0af23f0f49be4417c11bc5e47dd018962750a080 100644
--- a/gnu/packages/version-control.scm
+++ b/gnu/packages/version-control.scm
@@ -4369,34 +4369,31 @@ guessing the URL pattern from the @code{origin} remote.")
                   ;; error, so address that.
                   (substitute* "src/tla/libarch/archive.c"
                     (("\"--preserve\"")
-                     "\"--preserve-permissions\""))
-                  #t))))
+                     "\"--preserve-permissions\""))))))
     (build-system gnu-build-system)
     (arguments
-     '(#:phases (modify-phases %standard-phases
-                  (replace 'configure
-                    (lambda* (#:key inputs outputs #:allow-other-keys)
-                      (let ((out (assoc-ref outputs "out")))
-                        (chdir "src")
-
-                        (mkdir "=build")
-                        (chdir "=build")
+     (list #:phases #~(modify-phases %standard-phases
+                        (replace 'configure
+                          (lambda _
+                            (chdir "src")
 
-                        ;; For libneon's 'configure' script.
-                        ;; XXX: There's a bundled copy of neon.
-                        (setenv "CONFIG_SHELL" (which "sh"))
+                            (mkdir "=build")
+                            (chdir "=build")
 
-                        (invoke "../configure" "--prefix" out
-                                "--config-shell" (which "sh")
-                                "--with-posix-shell" (which "sh")
-                                "--with-cc" "gcc")))))
+                            ;; For libneon's 'configure' script.
+                            ;; XXX: There's a bundled copy of neon.
+                            (setenv "CONFIG_SHELL" (which "sh"))
 
+                            (invoke "../configure" "--prefix" #$output
+                                    "--config-shell" (which "sh")
+                                    "--with-posix-shell" (which "sh")
+                                    "--with-cc" "gcc"))))
 
-       ;; There are build failures when building in parallel.
-       #:parallel-build? #f
-       #:parallel-tests? #f
+           ;; There are build failures when building in parallel.
+           #:parallel-build? #f
+           #:parallel-tests? #f
 
-       #:test-target "test"))
+           #:test-target "test"))
     (native-inputs
      (list gcc-10 which))
     (synopsis "Historical distributed version-control system")