13/40: gnu: gcc-13, gcc-14: Support being used as parent for gcc-static.

[guix-commits]

janneke pushed a commit to branch hurd-team
in repository guix.

commit b4c0b38776c048869626bed8aefd4efb042cea11
Author: Janneke Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Mon Nov 4 21:01:59 2024 +0100

    gnu: gcc-13, gcc-14: Support being used as parent for gcc-static.
    
    * gnu/packages/gcc.scm (gcc-13)[arguments]: Use quasiquote instead of
    g-expressions.
    (gcc-14)[arguments]: Likewise.
    
    Change-Id: I22269b31d49868effe967d46247b189ed9a9d394
---
 gnu/packages/gcc.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/gcc.scm b/gnu/packages/gcc.scm
index 850a14cb1c..befbbda027 100644
--- a/gnu/packages/gcc.scm
+++ b/gnu/packages/gcc.scm
@@ -811,10 +811,10 @@ It also includes runtime support libraries for these 
languages.")
               (snippet gcc-canadian-cross-objdump-snippet)))
     (arguments
      (substitute-keyword-arguments (package-arguments gcc-11)
-       ((#:phases phases #~%standard-phases)
+       ((#:phases phases '%standard-phases)
        (if (target-hurd?)
-           #~(modify-phases #$phases
-               (delete 'patch-hurd-libpthread))
+           `(modify-phases ,phases
+              (delete 'patch-hurd-libpthread))
            phases))))
     (properties
      `((compiler-cpu-architectures
@@ -841,8 +841,8 @@ It also includes runtime support libraries for these 
languages.")
               (modules '((guix build utils)))
               (snippet gcc-canadian-cross-objdump-snippet)))
     (arguments (substitute-keyword-arguments (package-arguments gcc-13)
-                 ((#:phases phases #~%standard-phases)
-                  #~(modify-phases #$phases
+                 ((#:phases phases '%standard-phases)
+                  `(modify-phases ,phases
                       (add-before 'configure 'pre-x86-configure
                         (lambda _
                           (substitute* "gcc/config/i386/t-linux64"