~ chicken-core (chicken-5) cf945b34303b74348c34ca8432a7fc6fe366f791

commit cf945b34303b74348c34ca8432a7fc6fe366f791
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Mar 10 13:54:48 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Mar 10 13:54:48 2010 +0100

    show mapping of eggs only if changed

diff --git a/chicken-install.scm b/chicken-install.scm
index 8f55b1e8..9ffd3134 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -455,7 +455,8 @@
 		     (else (list egg))))
 	     eggs)
 	    string=?)))
-      (print "mapped " eggs " to " eggs2)
+      (unless (lset= string=? eggs eggs2)
+	(print "mapped " eggs " to " eggs2))
       eggs2))
 
   (define ($system str)