diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2012-07-01 17:32:03 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2012-07-05 00:09:17 +0200 |
| commit | c9d01150c04e92770f72683bdfabf4ac939985d3 (patch) | |
| tree | 8ebc3c1039e5b528a5b2b51b03e04fe274a628ef | |
| parent | 90c68be8835504da3f5addfe36a782ea692c3cf6 (diff) | |
| download | patches-c9d01150c04e92770f72683bdfabf4ac939985d3.tar patches-c9d01150c04e92770f72683bdfabf4ac939985d3.tar.gz | |
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.scm | 6 |
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 |