aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-10-14 23:41:24 +0200
committerLudovic Courtès <ludo@gnu.org>2019-10-14 23:43:43 +0200
commit88da011592a679776088b64b8d11575563c3f867 (patch)
treefff9342aa1881090d15161747387c5f0b257d8a2 /gnu/packages.scm
parent914379a503e6e3124af7d80ce960641bf4862758 (diff)
downloadguix-88da011592a679776088b64b8d11575563c3f867.tar
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.
Diffstat (limited to 'gnu/packages.scm')
-rw-r--r--gnu/packages.scm4
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))))