04/09: refresh: '--list-dependents' ignores deprecated packages.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 9300e2e893a5c04c7775a13e1dab0943c18d1faf
Author: Ludovic Courtès <address@hidden>
Date:   Tue Dec 4 10:34:03 2018 +0100

    refresh: '--list-dependents' ignores deprecated packages.
    
    * guix/scripts/refresh.scm (all-packages): Filter out deprecated packages.
---
 guix/scripts/refresh.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/guix/scripts/refresh.scm b/guix/scripts/refresh.scm
index 58fc64d..60e822b 100644
--- a/guix/scripts/refresh.scm
+++ b/guix/scripts/refresh.scm
@@ -278,7 +278,12 @@ the latest known version of ~a (~a)~%")
 
 (define (all-packages)
   "Return the list of all the distro's packages."
-  (fold-packages cons '()
+  (fold-packages (lambda (package result)
+                   ;; Ignore deprecated packages.
+                   (if (package-superseded package)
+                       result
+                       (cons package result)))
+                 '()
                  #:select? (const #t)))           ;include hidden packages
 
 (define (list-dependents packages)