From c9d01150c04e92770f72683bdfabf4ac939985d3 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sun, 1 Jul 2012 17:32:03 +0200 Subject: 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 871b495542..c3a17640eb 100644 --- a/guix/packages.scm +++ b/guix/packages.scm @@ -131,6 +131,9 @@ (define-record-type* (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 @@ (define* (package-derivation store package "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 -- cgit v1.2.3