diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-10-14 23:41:24 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-10-14 23:43:43 +0200 |
| commit | 88da011592a679776088b64b8d11575563c3f867 (patch) | |
| tree | fff9342aa1881090d15161747387c5f0b257d8a2 | |
| parent | 914379a503e6e3124af7d80ce960641bf4862758 (diff) | |
| download | guix-88da011592a679776088b64b8d11575563c3f867.tar.gz | |
packages: 'fold-available-packages' uses 'supported-package?'.
Fixes <https://bugs.gnu.org/37748>. Reported by Marius Bakke <mbakke@fastmail.com>. This is a followup to d2d63e20d5b981009b61bf416b4d7b516e8f1f34. * gnu/packages.scm (fold-available-packages): Use 'supported-package?' instead of (member ... (package-supported-systems ...)) to match what 'generate-package-cache' does.
| -rw-r--r-- | gnu/packages.scm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gnu/packages.scm b/gnu/packages.scm index 6633631c1f..959777ff8f 100644 --- a/gnu/packages.scm +++ b/gnu/packages.scm @@ -228,9 +228,7 @@ package module." #:outputs (package-outputs package) #:location (package-location package) #:supported? - (->bool - (member (%current-system) - (package-supported-systems package))) + (->bool (supported-package? package)) #:deprecated? (->bool (package-superseded package)))) |