summaryrefslogtreecommitdiff
path: root/guix/build-system
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-06-05 16:39:58 +0200
committerLudovic Courtès <ludo@gnu.org>2013-06-05 16:39:58 +0200
commita3e69bb892a20a2f2fd034dfefc0382236e4981b (patch)
tree56bf2feaa36c628eb612db5a4188985c7d8f3472 /guix/build-system
parenta1db0975350916c015cf6df27881f53ebb1575fc (diff)
gnu: Fix `static-package' arguments overriding.
* guix/build-system/gnu.scm (static-package): Call `package-arguments' from within the `arguments' field, so it see the right (%current-target-system).
Diffstat (limited to 'guix/build-system')
-rw-r--r--guix/build-system/gnu.scm27
1 files changed, 13 insertions, 14 deletions
diff --git a/guix/build-system/gnu.scm b/guix/build-system/gnu.scm
index 0998e6f21b..35590aa3da 100644
--- a/guix/build-system/gnu.scm
+++ b/guix/build-system/gnu.scm
@@ -116,20 +116,19 @@ flags for VARIABLE, the associated value is augmented."
#:key (strip-all? #t))
"Return a statically-linked version of package P. If STRIP-ALL? is true,
use `--strip-all' as the arguments to `strip'."
- (let ((args (package-arguments p)))
- (package (inherit p)
- (location (source-properties->location loc))
- (arguments
- (let ((a (default-keyword-arguments args
- '(#:configure-flags '()
- #:strip-flags '("--strip-debug")))))
- (substitute-keyword-arguments a
- ((#:configure-flags flags)
- `(cons* "--disable-shared" "LDFLAGS=-static" ,flags))
- ((#:strip-flags flags)
- (if strip-all?
- ''("--strip-all")
- flags))))))))
+ (package (inherit p)
+ (location (source-properties->location loc))
+ (arguments
+ (let ((a (default-keyword-arguments (package-arguments p)
+ '(#:configure-flags '()
+ #:strip-flags '("--strip-debug")))))
+ (substitute-keyword-arguments a
+ ((#:configure-flags flags)
+ `(cons* "--disable-shared" "LDFLAGS=-static" ,flags))
+ ((#:strip-flags flags)
+ (if strip-all?
+ ''("--strip-all")
+ flags)))))))
(define %store