me
/
guix
Archived
1
0
Fork 0
Code

gnu: static-bash-for-glibc: Use gexps. 

* gnu/packages/commencement.scm (static-bash-for-glibc)[arguments]: Use
gexps.
master
Ludovic Courtès 2023-02-28 17:05:33 +01:00
parent e8e6dbdd6a
commit 61efecd339
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gnu/packages/commencement.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; 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 © 2014 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2012 Nikita Karetnikov <nikita@karetnikov.org> ;;; Copyright © 2012 Nikita Karetnikov <nikita@karetnikov.org>
;;; Copyright © 2014, 2015, 2017 Mark H Weaver <mhw@netris.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 #:guile ,%bootstrap-guile
,@(substitute-keyword-arguments (package-arguments static-bash) ,@(substitute-keyword-arguments (package-arguments static-bash)
((#:configure-flags flags '()) ((#:configure-flags flags #~'())
;; Add a '-L' flag so that the pseudo-cross-ld of ;; Add a '-L' flag so that the pseudo-cross-ld of
;; BINUTILS-BOOT0 can find libc.a. ;; BINUTILS-BOOT0 can find libc.a.
`(append ,flags #~(append #$flags
(list (string-append "LDFLAGS=-static -L" (list (string-append "LDFLAGS=-static -L"
(assoc-ref %build-inputs (assoc-ref %build-inputs
"libc:static") "libc:static")
"/lib"))))))))) "/lib")))))))))
(define gettext-boot0 (define gettext-boot0
;; A minimal gettext used during bootstrap. ;; A minimal gettext used during bootstrap.