From c33561e005f4078a4f21bf50ca9bfcde73053253 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/net/qp.rkt | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/collects/net/qp.rkt b/collects/net/qp.rkt
index 7522a6c863..779f6831c4 100644
--- a/collects/net/qp.rkt
+++ b/collects/net/qp.rkt
@@ -103,10 +103,7 @@
          (loop (read-byte in))]))))
 
 (define (warning msg . args)
-  (when #f
-    (fprintf (current-error-port)
-             (apply format msg args))
-    (newline (current-error-port))))
+  (when #f (eprintf "~a\n" (apply format msg args))))
 
 (define (hex-digit? i)
   (vector-ref hex-values i))