01/01: packages: 'fold-available-packages' uses 'supported-package?'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 88da011592a679776088b64b8d11575563c3f867
Author: Ludovic Courtès <address@hidden>
Date:   Mon Oct 14 23:41:24 2019 +0200

    packages: 'fold-available-packages' uses 'supported-package?'.
    
    Fixes <https://bugs.gnu.org/37748>.
    Reported by Marius Bakke <address@hidden>.
    
    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.
---
 gnu/packages.scm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/gnu/packages.scm b/gnu/packages.scm
index 6633631..959777f 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))))