bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 36eea932a8534f91b9090fdf4caa0bd19a87a889
parent dcb28604caaed822e5f05a0e553713d0e206b682
Author: Eli Barzilay <eli@barzilay.org>
Date:   Sun,  6 May 2012 12:06:00 -0400

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

original commit: 17090fca4f19298f01d03fea419edb20f315d040

Diffstat:
M
collects/scribble/core.rkt
 | 
3
+--
M
collects/scribble/html-render.rkt
 | 
3
+--
M
collects/scribble/latex-render.rkt
 | 
3
+--
M
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
@@ -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
@@ -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
@@ -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
@@ -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)))