packages: Add 'package-transitive-supported-systems'.

* guix/packages.scm (package-transitive-supported-systems): New procedure.
* tests/packages.scm ("package-transitive-supported-systems"): New test.
* build-aux/hydra/gnu-system.scm (package->job): Use it.
This commit is contained in:
Ludovic Courtès 2014-10-17 23:20:39 +02:00
parent 67a86d3b8d
commit 7c3c0374de
3 changed files with 27 additions and 1 deletions

View file

@ -172,7 +172,8 @@ system.")
valid."
(cond ((member package base-packages)
#f)
((member system (package-supported-systems package))
((member system
(package-transitive-supported-systems package))
(package-job store (job-name package) package system))
(else
#f)))))