~ 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