diff --git a/racket/syndicate/trace/stderr.rkt b/racket/syndicate/trace/stderr.rkt index f5b6dc8..97e79f8 100644 --- 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)))