Environment variable for convenient redirection of stdout to stderr

2016-09-13 12:24:53 -04:00 · 2016-09-13 12:24:53 -04:00 · 9080396bc5
parent bb889542fc
commit 9080396bc5
1 changed files with 3 additions and 0 deletions
--- a/racket/syndicate/trace/stderr.rkt
+++ b/racket/syndicate/trace/stderr.rkt
@ -211,3 +211,6 @@

 (void (when (not (set-empty? flags))
        (thread (display-trace (install-trace-procedure!)))))
+
+(when (getenv "SYNDICATE_STDOUT_TO_STDERR")
+  (current-output-port (current-error-port)))