29/332: gnu: ki18n: Use G-expressions.

[guix-commits]

iyzsong pushed a commit to branch kde-updates
in repository guix.

commit cea5b64c2619191f2bd292005fba5ab52dd44b83
Author: Zheng Junjie <873216071@qq.com>
AuthorDate: Wed Jul 12 12:54:04 2023 +0800

    gnu: ki18n: Use G-expressions.
    
    * gnu/packages/kde-frameworks.scm (ki18n)[arguments]:
    Rewrite as G-expressions.
    
    Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
---
 gnu/packages/kde-frameworks.scm | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm
index cc4ca9a229..390c2cc7d9 100644
--- a/gnu/packages/kde-frameworks.scm
+++ b/gnu/packages/kde-frameworks.scm
@@ -833,13 +833,14 @@ other special events for a geographical region.")
     (inputs
      (list qtbase-5 qtdeclarative-5 qtscript iso-codes))
     (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (replace 'check
-           (lambda* (#:key tests? #:allow-other-keys)
-             (when tests?
-               (setenv "HOME" (getcwd))
-               (invoke "ctest" "-E" 
"(kcountrytest|kcountrysubdivisiontest)")))))))
+     (list #:phases #~(modify-phases %standard-phases
+                        (replace 'check
+                          (lambda* (#:key tests? #:allow-other-keys)
+                            (when tests?
+                              (setenv "HOME"
+                                      (getcwd))
+                              (invoke "ctest" "-E"
+                               "(kcountrytest|kcountrysubdivisiontest)")))))))
     (home-page "https://community.kde.org/Frameworks";)
     (synopsis "KDE Gettext-based UI text internationalization")
     (description "KI18n provides functionality for internationalizing user