~ chicken-core (chicken-5) 3cdcf14971a9f92a03f8c8787d0640c64d0199ec


commit 3cdcf14971a9f92a03f8c8787d0640c64d0199ec
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Jul 29 08:37:38 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Jul 29 08:37:38 2010 +0200

    trivial changes

diff --git a/batch-driver.scm b/batch-driver.scm
index 7eaf6961..a19bffd7 100644
--- a/batch-driver.scm
+++ b/batch-driver.scm
@@ -364,7 +364,9 @@
 	   (newline) )
 	  ((not filename)
 	   (print-version #t)
-	   (display "\nEnter \"chicken -help\" for information on how to use it.\n") )
+	   (display "\nEnter `chicken -help' for information on how to use the compiler,\n")
+	   (display "or try `csc' for a more convenient interface.\n")
+	   (display "\nRun `csi' to start the interactive interpreter.\n"))
 	  (else
 
 	   ;; Display header:
diff --git a/scheduler.scm b/scheduler.scm
index 240b3ce1..c0ab3b14 100644
--- a/scheduler.scm
+++ b/scheduler.scm
@@ -312,7 +312,7 @@ EOF
 	       (let ([o (open-output-string)])
 		 (display "Warning (" o)
 		 (display ct o)
-		 (display "): " o)
+		 (display ")" o)
 		 (print-error-message arg ##sys#standard-error (get-output-string o))
 		 (print-call-chain ##sys#standard-error 0 ct) ) ] )
 	(##sys#setslot ct 7 arg)
Trap