~ chicken-core (chicken-5) 2b84f40515a33a66778e751436d8f6af4853cfc9

commit 2b84f40515a33a66778e751436d8f6af4853cfc9
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Jun 11 13:50:48 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Jun 11 13:50:48 2010 +0200

    cross-chicken-status shows headers for both target and host

diff --git a/chicken-status.scm b/chicken-status.scm
index a245252f..89e2f293 100644
--- a/chicken-status.scm
+++ b/chicken-status.scm
@@ -125,8 +125,10 @@ EOF
 			   ((if files list-installed-files list-installed-eggs)
 			    eggs))))))
 	      (cond ((and *host-extensions* *target-extensions*)
+		     (print "host at " (repo-path) ":\n")
 		     (status)
 		     (fluid-let ((*host-extensions* #f))
+		       (print "target at " (repo-path) ":\n")
 		       (status)))
 		    (else (status))))
 	    (let ((arg (car args)))