~ chicken-core (chicken-5) b0fd73b40bb4d6b7ad65d7fa985b7063fa143d70
commit b0fd73b40bb4d6b7ad65d7fa985b7063fa143d70
Author: Evan Hanson <evhan@foldling.org>
AuthorDate: Mon Apr 19 19:40:49 2021 +1200
Commit: Mario Domenech Goulart <mario@parenteses.org>
CommitDate: Sun May 16 17:43:27 2021 +0200
Fall back to null when gathering components for "chicken-status -c" output
Signed-off-by: Mario Domenech Goulart <mario@parenteses.org>
diff --git a/chicken-status.scm b/chicken-status.scm
index b9dfd759..1b79349f 100644
--- a/chicken-status.scm
+++ b/chicken-status.scm
@@ -143,7 +143,8 @@
((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))))
- ((c-object) (list (list 'c-object mode (cadr info))))))
+ ((c-object) (list (list 'c-object mode (cadr info))))
+ (else '())))
(define (list-installed-components eggs)
(let ((w (quotient (- (get-terminal-width) 2) 2)))
Trap