From b32aff7e6614068451cb11ea52e0584bb6a2cd3b Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Sun, 6 May 2012 12:06:00 -0400
Subject: [PATCH] A bunch of `fprintf' -> `eprintf' conversions (and a few
 related things).

original commit: 17090fca4f19298f01d03fea419edb20f315d040
---
 collects/profile/main.rkt | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/collects/profile/main.rkt b/collects/profile/main.rkt
index 9827f42..6a25827 100644
--- a/collects/profile/main.rkt
+++ b/collects/profile/main.rkt
@@ -28,8 +28,7 @@
                        (loop)))))))
   (define (run) (for ([i (in-range rpt)]) (thunk)))
   (with-handlers ([void (lambda (e)
-                          (fprintf (current-error-port)
-                                   "profiled thunk error: ~a\n"
+                          (eprintf "profiled thunk error: ~a\n"
                                    (if (exn? e)
                                      (exn-message e)
                                      (format "~e" e))))])