~ chicken-core (chicken-5) 459f24b53a875bb7fe409553922c5e8f44f27726
commit 459f24b53a875bb7fe409553922c5e8f44f27726
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Apr 21 21:58:52 2011 +0200
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Thu Apr 21 21:58:52 2011 +0200
symbolify egg name (-list)
diff --git a/chicken-status.scm b/chicken-status.scm
index d1bffed4..d9b3ec5d 100644
--- a/chicken-status.scm
+++ b/chicken-status.scm
@@ -106,7 +106,7 @@
(for-each
(lambda (egg)
(let ((version (assq 'version (read-info egg (repo-path)))))
- (pp (list egg (and version (cadr version))))))
+ (pp (list (string->symbol egg) (and version (cadr version))))))
(gather-all-eggs)))
(define (usage code)
Trap