~ chicken-core (chicken-5) 721acfa74e9f46d783869ad5ecb39891008aaaf9


commit 721acfa74e9f46d783869ad5ecb39891008aaaf9
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Jun 4 09:30:30 2012 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Jun 4 15:24:04 2012 +0200

    compile-file should not print a message

diff --git a/utils.scm b/utils.scm
index 41934bc5..6821698a 100644
--- a/utils.scm
+++ b/utils.scm
@@ -96,7 +96,6 @@
 		    (qs filename)
 		    (qs (or output-file tmpfile))
 		    (if crapshell "\"" ""))))
-	(print "; compiling " filename " ...")
 	(when verbose (print "  " cmd))
 	(let ((status (system cmd)))
 	  (cond ((zero? status)
Trap