~ chicken-core (chicken-5) 98aa94f3dce1952b4c46a3d8bc34b6db6c99f689

commit 98aa94f3dce1952b4c46a3d8bc34b6db6c99f689
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Apr 7 18:02:30 2017 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Apr 7 18:02:30 2017 +0200

    chicken-status: compoinent-listing was broken

diff --git a/chicken-status.scm b/chicken-status.scm
index 6ebca738..1846a371 100644
--- a/chicken-status.scm
+++ b/chicken-status.scm
@@ -155,12 +155,12 @@
                                       w #t #\.))
                 (print egg))
             (when comps
-              (let ((lst (gather-components eggs #f)))
+              (let ((lst (gather-components comps #f)))
                 (for-each
                   (lambda (comp)
                     (print "  " (format-string (->string (car comp)) 32)
-                           "  " (format-string (->string (cadr comp)) 32)
-                           (case (caddr comp)
+                           "  " (format-string (->string (caddr comp)) 32)
+                           (case (cadr comp)
                              ((host) " (host)")
                              ((target) " (target)")
                              (else ""))))