~ 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