guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

01/05: gnu: static-bash-for-glibc: Use gexps.


From: guix-commits
Subject: 01/05: gnu: static-bash-for-glibc: Use gexps.
Date: Tue, 28 Feb 2023 11:11:24 -0500 (EST)

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

commit 61efecd33934ce6fd800c9a279691700d1f784ed
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Tue Feb 28 17:05:33 2023 +0100

    gnu: static-bash-for-glibc: Use gexps.
    
    * gnu/packages/commencement.scm (static-bash-for-glibc)[arguments]: Use
    gexps.
---
 gnu/packages/commencement.scm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index e48878248d..a11fa37d60 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2012-2022 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2012-2023 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2014 Andreas Enge <andreas@enge.fr>
 ;;; Copyright © 2012 Nikita Karetnikov <nikita@karetnikov.org>
 ;;; Copyright © 2014, 2015, 2017 Mark H Weaver <mhw@netris.org>
@@ -2945,14 +2945,14 @@ exec ~a/bin/~a-~a -B~a/lib -Wl,-dynamic-linker 
-Wl,~a/~a \"$@\"~%"
        #:guile ,%bootstrap-guile
 
        ,@(substitute-keyword-arguments (package-arguments static-bash)
-           ((#:configure-flags flags '())
+           ((#:configure-flags flags #~'())
             ;; Add a '-L' flag so that the pseudo-cross-ld of
             ;; BINUTILS-BOOT0 can find libc.a.
-            `(append ,flags
-                     (list (string-append "LDFLAGS=-static -L"
-                                          (assoc-ref %build-inputs
-                                                     "libc:static")
-                                          "/lib")))))))))
+            #~(append #$flags
+                      (list (string-append "LDFLAGS=-static -L"
+                                           (assoc-ref %build-inputs
+                                                      "libc:static")
+                                           "/lib")))))))))
 
 (define gettext-boot0
   ;; A minimal gettext used during bootstrap.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]