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'.
This commit is contained in:
Ludovic Courtès 2017-10-25 20:35:43 -07:00
parent 17650569d4
commit 44c6a87f53
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5

View File

@ -738,7 +738,8 @@ processed, #f otherwise."
(available (fold-packages (available (fold-packages
(lambda (p r) (lambda (p r)
(let ((n (package-name p))) (let ((n (package-name p)))
(if (supported-package? p) (if (and (supported-package? p)
(not (package-superseded p)))
(if regexp (if regexp
(if (regexp-exec regexp n) (if (regexp-exec regexp n)
(cons p r) (cons p r)