aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2012-07-01 17:32:03 +0200
committerLudovic Courtès <ludo@gnu.org>2012-07-05 00:09:17 +0200
commitc9d01150c04e92770f72683bdfabf4ac939985d3 (patch)
tree8ebc3c1039e5b528a5b2b51b03e04fe274a628ef
parent90c68be8835504da3f5addfe36a782ea692c3cf6 (diff)
downloadguix-c9d01150c04e92770f72683bdfabf4ac939985d3.tar.gz
guix-c9d01150c04e92770f72683bdfabf4ac939985d3.zip
packages: Add a `self-native-input?' field.
* guix/packages.scm (<package>)[self-native-input?]: New field. (package-derivation): Update/fix pattern.
-rw-r--r--guix/packages.scm6
1 files changed, 5 insertions, 1 deletions
diff --git a/guix/packages.scm b/guix/packages.scm
index 871b495542..c3a17640eb 100644
--- a/guix/packages.scm
+++ b/guix/packages.scm
@@ -131,6 +131,9 @@ representation."
(default '()))
(native-inputs package-native-inputs ; native input packages/derivations
(default '()))
+ (self-native-input? package-self-native-input? ; whether to use itself as
+ ; a native input when cross-
+ (default #f)) ; compiling
(outputs package-outputs ; list of strings
(default '("out")))
@@ -163,7 +166,8 @@ representation."
"Return the derivation of PACKAGE for SYSTEM."
(match package
(($ <package> name version source (= build-system-builder builder)
- args inputs native-inputs propagated-inputs outputs)
+ args inputs propagated-inputs native-inputs self-native-input?
+ outputs)
;; TODO: For `search-paths', add a builder prologue that calls
;; `set-path-environment-variable'.
(let ((inputs (map (match-lambda