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 d2d63e20d5.

* gnu/packages.scm (fold-available-packages): Use 'supported-package?'
instead of (member ... (package-supported-systems ...)) to match what
'generate-package-cache' does.
This commit is contained in:
Ludovic Courtès 2019-10-14 23:41:24 +02:00
parent 914379a503
commit 88da011592
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5

View File

@ -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))))