nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

packages: Add a `self-native-input?' field. 

* guix/packages.scm (<package>)[self-native-input?]: New field.
  (package-derivation): Update/fix pattern.
This commit is contained in:
Ludovic Courtès 2012-07-01 17:32:03 +02:00
parent 90c68be883
commit c9d01150c0
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
guix/packages.scm
View File

@ -131,6 +131,9 @@ representation."
(default '())) (default '()))
(native-inputs package-native-inputs ; native input packages/derivations (native-inputs package-native-inputs ; native input packages/derivations
(default '())) (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 (outputs package-outputs ; list of strings
(default '("out"))) (default '("out")))
@ -163,7 +166,8 @@ representation."
"Return the derivation of PACKAGE for SYSTEM." "Return the derivation of PACKAGE for SYSTEM."
(match package (match package
(($ <package> name version source (= build-system-builder builder) (($ <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 ;; TODO: For `search-paths', add a builder prologue that calls
;; `set-path-environment-variable'. ;; `set-path-environment-variable'.
(let ((inputs (map (match-lambda (let ((inputs (map (match-lambda