From c9d01150c04e92770f72683bdfabf4ac939985d3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 1 Jul 2012 17:32:03 +0200 Subject: [PATCH] packages: Add a `self-native-input?' field. * guix/packages.scm ()[self-native-input?]: New field. (package-derivation): Update/fix pattern. --- guix/packages.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/guix/packages.scm b/guix/packages.scm index 871b495542fc27f4dba1c625b69750d5c98db95c..c3a17640eb72f4704442ab1674a8f17c124fb19f 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 (($ 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