From 36eea932a8534f91b9090fdf4caa0bd19a87a889 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/scribble/core.rkt                | 3 +--
 collects/scribble/html-render.rkt         | 3 +--
 collects/scribble/latex-render.rkt        | 3 +--
 collects/scribble/private/manual-bind.rkt | 3 +--
 4 files changed, 4 insertions(+), 8 deletions(-)

diff --git a/collects/scribble/core.rkt b/collects/scribble/core.rkt
index 7a6905a0..aac9ab69 100644
--- a/collects/scribble/core.rkt
+++ b/collects/scribble/core.rkt
@@ -17,8 +17,7 @@
   (let ([ht (collect-info-ht ci)])
     (let ([old-val (hash-ref ht key #f)])
       (when old-val
-        (fprintf (current-error-port)
-                 "WARNING: collected information for key multiple times: ~e; values: ~e ~e\n"
+        (eprintf "WARNING: collected information for key multiple times: ~e; values: ~e ~e\n"
                  key old-val val))
     (hash-set! ht key val))))
 
diff --git a/collects/scribble/html-render.rkt b/collects/scribble/html-render.rkt
index d012f14c..89c9e53f 100644
--- a/collects/scribble/html-render.rkt
+++ b/collects/scribble/html-render.rkt
@@ -1129,8 +1129,7 @@
                           (render-content (element-content e) part ri))))
                (begin
                  (when #f
-                   (fprintf (current-error-port)
-                            "Undefined link: ~s\n"
+                   (eprintf "Undefined link: ~s\n"
                             (tag-key (link-element-tag e) ri)))
                  `((font ([class "badlink"])
                      ,@(if (empty-content? (element-content e))
diff --git a/collects/scribble/latex-render.rkt b/collects/scribble/latex-render.rkt
index 0ae9eb56..6214d68e 100644
--- a/collects/scribble/latex-render.rkt
+++ b/collects/scribble/latex-render.rkt
@@ -270,8 +270,7 @@
                (if dest
                    (if (list? number)
                        (format-number number null)
-                       (begin (fprintf (current-error-port)
-                                       "Internal tag error: ~s -> ~s\n"
+                       (begin (eprintf "Internal tag error: ~s -> ~s\n"
                                        (link-element-tag e)
                                        dest)
                               '("!!!")))
diff --git a/collects/scribble/private/manual-bind.rkt b/collects/scribble/private/manual-bind.rkt
index 68a3f964..48c06596 100644
--- a/collects/scribble/private/manual-bind.rkt
+++ b/collects/scribble/private/manual-bind.rkt
@@ -142,8 +142,7 @@
              ;; Call raise-syntax-error to capture error message:
              (with-handlers ([exn:fail:syntax?
                               (lambda (exn)
-                                (fprintf (current-error-port)
-                                         "~a\n" (exn-message exn)))])
+                                (eprintf "~a\n" (exn-message exn)))])
                (raise-syntax-error
                 'WARNING
                 "no declared exporting libraries for definition" id)))