01/11: guix package: '--list-available' does not show superseded packages.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 44c6a87f53690dd47a8ef1f139b863ba696104a1
Author: Ludovic Courtès <address@hidden>
Date:   Wed Oct 25 20:35:43 2017 -0700

    guix package: '--list-available' does not show superseded packages.
    
    * guix/scripts/package.scm (process-query) <'list-available>: Filter out
    P if it matches 'package-superseded'.
---
 guix/scripts/package.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm
index 0e36501..f972ca2 100644
--- a/guix/scripts/package.scm
+++ b/guix/scripts/package.scm
@@ -738,7 +738,8 @@ processed, #f otherwise."
               (available (fold-packages
                           (lambda (p r)
                             (let ((n (package-name p)))
-                              (if (supported-package? p)
+                              (if (and (supported-package? p)
+                                       (not (package-superseded p)))
                                   (if regexp
                                       (if (regexp-exec regexp n)
                                           (cons p r)