Moving error output to stderr

This commit is contained in:
Jay McCarthy 2010-04-27 09:35:01 -06:00
parent 306e67f3ab
commit 5823da1710

View File

@ -185,7 +185,7 @@
(hash-update! errors (common-message exn) add1 0) (hash-update! errors (common-message exn) add1 0)
(unless (and (not (care-about-nonserious?)) (not serious?)) (unless (and (not (care-about-nonserious?)) (not serious?))
(when (or (verbose-mode) (stop-on-first-error)) (when (or (verbose-mode) (stop-on-first-error))
(printf "~a -- ~a: ~a~n" file phase (exn-message exn))) (fprintf (current-error-port) "~a -- ~a: ~a~n" file phase (exn-message exn)))
(when (stop-on-first-error) (when (stop-on-first-error)
exn))) exn)))