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 @@ (define* (static-package p #:optional (loc (current-source-location)) #: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