From d8e0ca691aa86d99780ebf2c6c44d1cb14c0e127 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/mzlib/deflate.rkt | 2 +-
 collects/mzlib/zip.rkt     | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/collects/mzlib/deflate.rkt b/collects/mzlib/deflate.rkt
index 37b615c..9ebc7bc 100644
--- a/collects/mzlib/deflate.rkt
+++ b/collects/mzlib/deflate.rkt
@@ -64,7 +64,7 @@
     (make-gzbytes (gzbytes-bytes v) (+ (gzbytes-offset v) o)))
 
   (define (Trace stderr str . args)
-    (apply fprintf (current-error-port) str args))
+    (apply eprintf str args))
   (define Tracevv Trace)
   (define Tracev Trace)
   (define (Tracec test . args)
diff --git a/collects/mzlib/zip.rkt b/collects/mzlib/zip.rkt
index 50cec2d..e67c2db 100644
--- a/collects/mzlib/zip.rkt
+++ b/collects/mzlib/zip.rkt
@@ -93,7 +93,7 @@
            [mark1       #f]
            [mark2       #f])
       (when (zip-verbose)
-        (fprintf (current-error-port) "zip: compressing ~a...\n" filename))
+        (eprintf "zip: compressing ~a...\n" filename))
       ;; write the contents to the output stream:
       (write-int *local-file-header*    4)  ; signature
       (write-int *required-version*     2)  ; version
@@ -254,10 +254,10 @@
                      (zip-one-entry (build-metadata file) seekable?))
                    files)])
         (when (zip-verbose)
-          (fprintf (current-error-port) "zip: writing headers...\n"))
+          (eprintf "zip: writing headers...\n"))
         (write-central-directory headers))
       (when (zip-verbose)
-        (fprintf (current-error-port) "zip: done.\n"))))
+        (eprintf "zip: done.\n"))))
 
   ;; zip : output-file paths ->
   (provide zip)