19/21: gnu: itstool: Use G-expression.

[guix-commits]

mbakke pushed a commit to branch core-updates
in repository guix.

commit 8cdb8e10e260c226a0f6842332a07d0b514efce4
Author: Marius Bakke <marius@gnu.org>
AuthorDate: Thu Jun 30 23:00:10 2022 +0200

    gnu: itstool: Use G-expression.
    
    * gnu/packages/glib.scm (itstool)[arguments]: Convert to gexp.
---
 gnu/packages/glib.scm | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

diff --git a/gnu/packages/glib.scm b/gnu/packages/glib.scm
index 7b9fc478b6..09e634b280 100644
--- a/gnu/packages/glib.scm
+++ b/gnu/packages/glib.scm
@@ -607,15 +607,13 @@ The intltool collection can be used to do these things:
     (inputs
      (list libxml2 python-libxml2 python))
     (arguments
-     '(#:phases
-       (modify-phases %standard-phases
-         (add-after 'install 'wrap-program
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let ((prog (string-append (assoc-ref outputs "out")
-                                        "/bin/itstool")))
-               (wrap-program prog
-                 `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH"))))
-               #t))))))
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'install 'wrap-program
+            (lambda _
+              (wrap-program (string-append #$output "/bin/itstool")
+                `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH")))))))))
     (home-page "http://www.itstool.org";)
     (synopsis "Tool to translate XML documents with PO files")
     (description