diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-06-02 15:22:03 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-06-02 17:22:06 +0200 |
| commit | 4cc80c946b6915db450007c7c648082c27a368c9 (patch) | |
| tree | 5f3e6c8cf5b5e9729e101afa6b5f67c3b32f3350 | |
| parent | 704243e0c6ec5ac86e2f45aaa469717e60b89124 (diff) | |
| download | guix-4cc80c946b6915db450007c7c648082c27a368c9.tar guix-4cc80c946b6915db450007c7c648082c27a368c9.tar.gz | |
gnu: bash-minimal: Simplify 'arguments' field.
* gnu/packages/bash.scm (bash-minimal)[arguments]: Remove 'let' and use
'substitute-keyword-arguments' directly.
| -rw-r--r-- | gnu/packages/bash.scm | 50 |
1 files changed, 25 insertions, 25 deletions
diff --git a/gnu/packages/bash.scm b/gnu/packages/bash.scm index 38aa1786ef..b1966e5675 100644 --- a/gnu/packages/bash.scm +++ b/gnu/packages/bash.scm @@ -211,33 +211,33 @@ without modification.") (outputs (delete "include" (package-outputs bash))) (arguments - (let ((args `(,@(package-arguments bash) - #:modules ((guix build gnu-build-system) - (guix build utils) - (srfi srfi-1) - (srfi srfi-26))))) - (substitute-keyword-arguments args - ((#:configure-flags flags) - `(list "--without-bash-malloc" - "--disable-readline" - "--disable-history" - "--disable-help-builtin" - "--disable-progcomp" - "--disable-net-redirections" - "--disable-nls" + (substitute-keyword-arguments (package-arguments bash) + ((#:modules _ '()) + '((guix build gnu-build-system) + (guix build utils) + (srfi srfi-1) + (srfi srfi-26))) + ((#:configure-flags flags '()) + `(list "--without-bash-malloc" + "--disable-readline" + "--disable-history" + "--disable-help-builtin" + "--disable-progcomp" + "--disable-net-redirections" + "--disable-nls" - ;; Pretend 'dlopen' is missing so we don't build loadable - ;; modules and related code. - "ac_cv_func_dlopen=no" + ;; Pretend 'dlopen' is missing so we don't build loadable + ;; modules and related code. + "ac_cv_func_dlopen=no" - ,@(if (%current-target-system) - '("bash_cv_job_control_missing=no" - "bash_cv_getcwd_malloc=yes") - '()))) - ((#:phases phases) - `(modify-phases ,phases - ;; No loadable modules. - (delete 'move-development-files)))))))) + ,@(if (%current-target-system) + '("bash_cv_job_control_missing=no" + "bash_cv_getcwd_malloc=yes") + '()))) + ((#:phases phases) + `(modify-phases ,phases + ;; No loadable modules. + (delete 'move-development-files))))))) (define-public static-bash ;; Statically-linked Bash that contains nothing but the 'bash' binary and |