From d2d63e20d5b981009b61bf416b4d7b516e8f1f34 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 6 Sep 2019 14:39:54 +0200
Subject: packages: 'generate-package-cache' uses 'supported-package?'.

* gnu/packages.scm (generate-package-cache): Use 'supported-package?'
instead of 'package-supported-systems'.
---
 gnu/packages.scm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'gnu/packages.scm')

diff --git a/gnu/packages.scm b/gnu/packages.scm
index 47e4f473b5..6633631c1f 100644
--- a/gnu/packages.scm
+++ b/gnu/packages.scm
@@ -393,9 +393,7 @@ reducing the memory footprint."
                              ,(module-name module)
                              ,symbol
                              ,(package-outputs package)
-                             ,(->bool
-                               (member (%current-system)
-                                       (package-supported-systems package)))
+                             ,(->bool (supported-package? package))
                              ,(->bool (package-superseded package))
                              ,@(let ((loc (package-location package)))
                                  (if loc
-- 
cgit v1.2.3