aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-06-02 15:22:03 +0200
committerLudovic Courtès <ludo@gnu.org>2017-06-02 17:22:06 +0200
commit4cc80c946b6915db450007c7c648082c27a368c9 (patch)
tree5f3e6c8cf5b5e9729e101afa6b5f67c3b32f3350
parent704243e0c6ec5ac86e2f45aaa469717e60b89124 (diff)
downloadguix-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.scm50
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