>From 627e43164a9afa7e52a76aa172b122a9710b591d Mon Sep 17 00:00:00 2001
From: Evan Hanson <address@hidden>
Date: Wed, 25 Jul 2018 20:17:33 +1200
Subject: [PATCH 2/4] Allow "chicken-status -list" to be used with egg name
 arguments

This allows `chicken-status -list NAME ...` to generate output for just
the named eggs (or the eggs specified by a pattern with "-match"), like
we do with "-c" and "-f".

The default behaviour, listing all installed eggs, remains the same when
no name arguments are given.
---
 chicken-status.scm | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/chicken-status.scm b/chicken-status.scm
index 7a0a9b2d..e361fc86 100644
--- a/chicken-status.scm
+++ b/chicken-status.scm
@@ -185,13 +185,13 @@
        eggs)
       string<?)))
 
-  (define (dump-installed-versions)
+  (define (dump-installed-versions eggs)
     (for-each
      (lambda (egg)
        (let ((version (get-egg-property (read-info egg) 'version)))
 	 (pp (cons (string->symbol egg)
                    (if version (list version) '())))))
-     (gather-eggs)))
+     eggs))
 
   (define (usage code)
     (print #<<EOF
@@ -225,15 +225,15 @@ EOF
                      (cut print "-components cannot be used with -list."))
                    (exit 1))
                   (cached (list-cached-eggs))
-                  (dump (dump-installed-versions))
                   (else
-                    (let ((eggs (filter-eggs pats mtch)))
-                      (if (null? eggs)
-                          (display "(none)\n" (current-error-port))
-                          ((cond (comps list-installed-components)
-                                 (files list-installed-files)
-                                 (else list-installed-eggs))
-                           eggs)))))
+                   (let ((eggs (filter-eggs pats mtch)))
+                     (if (null? eggs)
+                         (display "(none)\n" (current-error-port))
+                         ((cond (dump dump-installed-versions)
+                                (files list-installed-files)
+                                (comps list-installed-components)
+                                (else list-installed-eggs))
+                          eggs)))))
             (let ((arg (car args)))
               (cond ((member arg '("-help" "-h" "--help"))
                      (usage 0))
-- 
2.11.0