A bunch of fprintf' -> eprintf' conversions (and a few related things).

original commit: 17090fca4f
2012-05-06 12:06:00 -04:00 · 2012-05-06 12:06:00 -04:00 · c33561e005
commit c33561e005
parent 51cf8696b3
1 changed files with 1 additions and 4 deletions
--- 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))