01/02: packages: 'generate-package-cache' uses 'supported-package?'.

[guix-commits]

civodul pushed a commit to branch core-updates
in repository guix.

commit d2d63e20d5b981009b61bf416b4d7b516e8f1f34
Author: Ludovic Courtès <address@hidden>
Date:   Fri Sep 6 14:39:54 2019 +0200

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

diff --git a/gnu/packages.scm b/gnu/packages.scm
index 47e4f47..6633631 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