futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: bash-minimal: Simplify 'arguments' field.

Browse Source 
* gnu/packages/bash.scm (bash-minimal)[arguments]: Remove 'let' and use
'substitute-keyword-arguments' directly.
This commit is contained in:
Ludovic Courtès 2017-06-02 15:22:03 +02:00
parent 704243e0c6
commit 4cc80c946b
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 25 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
gnu/packages/bash.scm
View File

@ -211,33 +211,33 @@ without modification.")
(outputs (delete "include" (package-outputs bash))) (outputs (delete "include" (package-outputs bash)))
(arguments (arguments
(let ((args `(,@(package-arguments bash) (substitute-keyword-arguments (package-arguments bash)
#:modules ((guix build gnu-build-system) ((#:modules _ '())
(guix build utils) '((guix build gnu-build-system)
(srfi srfi-1) (guix build utils)
(srfi srfi-26))))) (srfi srfi-1)
(substitute-keyword-arguments args (srfi srfi-26)))
((#:configure-flags flags) ((#:configure-flags flags '())
`(list "--without-bash-malloc" `(list "--without-bash-malloc"
"--disable-readline" "--disable-readline"
"--disable-history" "--disable-history"
"--disable-help-builtin" "--disable-help-builtin"
"--disable-progcomp" "--disable-progcomp"
"--disable-net-redirections" "--disable-net-redirections"
"--disable-nls" "--disable-nls"
;; Pretend 'dlopen' is missing so we don't build loadable ;; Pretend 'dlopen' is missing so we don't build loadable
;; modules and related code. ;; modules and related code.
"ac_cv_func_dlopen=no" "ac_cv_func_dlopen=no"
,@(if (%current-target-system) ,@(if (%current-target-system)
'("bash_cv_job_control_missing=no" '("bash_cv_job_control_missing=no"
"bash_cv_getcwd_malloc=yes") "bash_cv_getcwd_malloc=yes")
'()))) '())))
((#:phases phases) ((#:phases phases)
`(modify-phases ,phases `(modify-phases ,phases
;; No loadable modules. ;; No loadable modules.
(delete 'move-development-files)))))))) (delete 'move-development-files)))))))
(define-public static-bash (define-public static-bash
;; Statically-linked Bash that contains nothing but the 'bash' binary and ;; Statically-linked Bash that contains nothing but the 'bash' binary and