~ chicken-core (chicken-5) c7148d0bcb39845075aa9f6a67e7a2f53742a93a


commit c7148d0bcb39845075aa9f6a67e7a2f53742a93a
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Sun Apr 23 17:05:57 2017 +1200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Sun Apr 23 17:05:59 2017 +1200

    Add `generated-source-file` to "chicken-status -c" output

diff --git a/chicken-status.scm b/chicken-status.scm
index 1846a371..dee8150e 100644
--- a/chicken-status.scm
+++ b/chicken-status.scm
@@ -128,15 +128,12 @@
   (define (gather-components-rec info mode)
     (case (car info)
       ((host) 
-       (if host-extensions
-           (gather-components (cdr info) 'host)
-           '()))
+       (if host-extensions (gather-components (cdr info) 'host) '()))
       ((target) 
-       (if target-extensions
-           (gather-components (cdr info) 'target)
-           '()))
+       (if target-extensions (gather-components (cdr info) 'target) '()))
       ((extension) (list (list 'extension mode (cadr info))))
       ((data) (list (list 'data mode (cadr info))))
+      ((generated-source-file) (list (list 'generated-source-file mode (cadr info))))
       ((c-include) (list (list 'c-include mode (cadr info))))
       ((scheme-include) (list (list 'scheme-include mode (cadr info))))
       ((program) (list (list 'program mode (cadr info))))))
Trap