~ 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