From 9c75fecad8368841c31d318968829f8e806e383d Mon Sep 17 00:00:00 2001
From: Zhu Zihao <all_but_last@163.com>
Date: Wed, 20 Aug 2025 16:04:08 +0800
Subject: [PATCH] gnu: dico: Use G-expression.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* gnu/packages/dictionaries.scm (dico): Use G-expression.
[arguments]<#:configure-flags>: Replace %output with #$output.
<#:phases>: Use G-expression.

Change-Id: I2fbc8b3acb96a6456aa78d631bec7363bf0d7d48
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/packages/dictionaries.scm | 38 ++++++++++++++++++-----------------
 1 file changed, 20 insertions(+), 18 deletions(-)

diff --git a/gnu/packages/dictionaries.scm b/gnu/packages/dictionaries.scm
index 50894e4d81fd2aca56f5b90930e994c8e9bab1cb..8450deb9871bbdcfbde83e696f75de9a818c2a20 100644
--- a/gnu/packages/dictionaries.scm
+++ b/gnu/packages/dictionaries.scm
@@ -86,24 +86,26 @@
                 "1xvahrav8aml90qcj4cj3a33y0n7nm1k0ywgks1zy2q91v2qk2vj"))))
     (build-system gnu-build-system)
     (arguments
-     '(#:configure-flags (list (string-append "--with-guile-site-dir=" %output
-                                              "/share/guile/site/2.0")
-                               "--disable-static")
-       #:phases (modify-phases %standard-phases
-                  (add-before 'build 'set-shell-file-name
-                    (lambda* (#:key inputs #:allow-other-keys)
-                      ;; This code invokes "/bin/sh -c 'm4 -s ...'".
-                      (substitute* "grecs/src/grecs-lex.c"
-                        (("\"/bin/sh\"")
-                         (string-append "\""
-                                        (search-input-file inputs "/bin/sh")
-                                        "\"")))))
-                  (add-before 'check 'silence-guile
-                    (lambda _
-                      ;; Guile is too talkative, which disturbs the test
-                      ;; infrastructure.  Gag it.
-                      (setenv "GUILE_AUTO_COMPILE" "0")
-                      (setenv "GUILE_WARN_DEPRECATED" "no"))))))
+     (list
+      #:configure-flags #~(list (string-append "--with-guile-site-dir=" #$output
+                                               "/share/guile/site/2.0")
+                                "--disable-static")
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-before 'build 'set-shell-file-name
+            (lambda* (#:key inputs #:allow-other-keys)
+              ;; This code invokes "/bin/sh -c 'm4 -s ...'".
+              (substitute* "grecs/src/grecs-lex.c"
+                (("\"/bin/sh\"")
+                 (string-append "\""
+                                (search-input-file inputs "/bin/sh")
+                                "\"")))))
+          (add-before 'check 'silence-guile
+            (lambda _
+              ;; Guile is too talkative, which disturbs the test
+              ;; infrastructure.  Gag it.
+              (setenv "GUILE_AUTO_COMPILE" "0")
+              (setenv "GUILE_WARN_DEPRECATED" "no"))))))
     (native-inputs (list groff))
     (inputs
      (list m4                           ;used at run time