ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 05:48:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Revert "packages: Optimize 'package-transitive-supported-systems'."

Browse source 
This reverts commit 24420f5ffa.

This broke 'package-transitive-supported-systems', which would return
the union of supported systems instead of the intersection.
This commit is contained in:
Ludovic Courtès 2018-07-03 13:49:28 +02:00
parent f3f1d0a557
commit 86eee976f5
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 9 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
guix/packages.scm
View file

@ -766,16 +766,15 @@ (define package-transitive-supported-systems
(mlambdaq (package)
"Return the intersection of the systems supported by PACKAGE and those
supported by its dependencies."
(set->list
(fold (lambda (input systems)
(match input
((label (? package? p) . _)
(fold set-insert systems
(package-transitive-supported-systems p)))
(_
systems)))
(list->set (package-supported-systems package))
(bag-direct-inputs (package->bag package))))))
(fold (lambda (input systems)
(match input
((label (? package? p) . _)
(lset-intersection
string=? systems (package-transitive-supported-systems p)))
(_
systems)))
(package-supported-systems package)
(bag-direct-inputs (package->bag package)))))
(define* (supported-package? package #:optional (system (%current-system)))
"Return true if PACKAGE is supported on SYSTEM--i.e., if PACKAGE and all its