aboutsummaryrefslogtreecommitdiff
path: root/distro/packages/make-bootstrap.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-01-01 16:55:34 +0100
committerLudovic Courtès <ludo@gnu.org>2013-01-01 16:55:34 +0100
commit4d058c67929aa9d464fcb1ff0217122424078cb8 (patch)
treeddcaa67983811b94a6323631172e4faf827a9e7f /distro/packages/make-bootstrap.scm
parent450fb5a6b44f05dbaa35daf2b696dfc4d502be96 (diff)
downloadpatches-4d058c67929aa9d464fcb1ff0217122424078cb8.tar
patches-4d058c67929aa9d464fcb1ff0217122424078cb8.tar.gz
build-system/gnu: Add `static-package'.
* distro/packages/make-bootstrap.scm (static-package): Move to... * guix/build-system/gnu.scm (static-package): ... here. New procedure.
Diffstat (limited to 'distro/packages/make-bootstrap.scm')
-rw-r--r--distro/packages/make-bootstrap.scm25
1 files changed, 1 insertions, 24 deletions
diff --git a/distro/packages/make-bootstrap.scm b/distro/packages/make-bootstrap.scm
index 28be0b8c49..c0e5d8be5d 100644
--- a/distro/packages/make-bootstrap.scm
+++ b/distro/packages/make-bootstrap.scm
@@ -20,7 +20,7 @@
#:use-module (guix utils)
#:use-module (guix packages)
#:use-module (guix build-system trivial)
- #:use-module ((guix build-system gnu) #:select (package-with-explicit-inputs))
+ #:use-module (guix build-system gnu)
#:use-module ((distro) #:select (search-patch))
#:use-module (distro packages base)
#:use-module (distro packages bash)
@@ -45,29 +45,6 @@
;;;
;;; Code:
-(define* (static-package p #:optional (loc (current-source-location)))
- "Return a statically-linked version of package P."
- ;; TODO: Move to (guix build-system gnu).
- (let ((args (package-arguments p)))
- (package (inherit p)
- (location (source-properties->location loc))
- (arguments
- (let ((augment (lambda (args)
- (let ((a (default-keyword-arguments args
- '(#:configure-flags '()
- #:strip-flags #f))))
- (substitute-keyword-arguments a
- ((#:configure-flags flags)
- `(cons* "--disable-shared"
- "LDFLAGS=-static"
- ,flags))
- ((#:strip-flags _)
- ''("--strip-all")))))))
- (if (procedure? args)
- (lambda x
- (augment (apply args x)))
- (augment args)))))))
-
(define %glibc-with-relocatable-system
;; A libc whose `system' and `popen' functions looks for `sh' in $PATH.
(package (inherit glibc-final)