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

original commit: 17090fca4f19298f01d03fea419edb20f315d040

collects/parser-tools/private-yacc/table.rkt

@@ -158,8 +158,7 @@
                       (prod-index (reduce-prod current-guess))))
               (loop (car rest) (cdr rest)))
              ((accept? (car rest))
-              (fprintf (current-error-port) 
+              (eprintf "accept/reduce or accept/shift conflicts.  Check the grammar for useless cycles of productions\n")
-                       "accept/reduce or accept/shift conflicts.  Check the grammar for useless cycles of productions\n")
               (loop current-guess (cdr rest)))
              (else (loop current-guess (cdr rest)))))))))
   
@@ -179,13 +178,11 @@
                    grouped-table)))
       (unless suppress
         (when (> SR-conflicts 0)
-          (fprintf (current-error-port) 
+          (eprintf "~a shift/reduce conflict~a\n"
-                   "~a shift/reduce conflict~a\n" 
                    SR-conflicts
                    (if (= SR-conflicts 1) "" "s")))
         (when (> RR-conflicts 0)
-          (fprintf (current-error-port)
+          (eprintf "~a reduce/reduce conflict~a\n"
-                   "~a reduce/reduce conflict~a\n"
                    RR-conflicts
                    (if (= RR-conflicts 1) "" "s"))))
       table))
@@ -281,8 +278,7 @@
         (unless (string=? file "")
           (with-handlers [(exn:fail:filesystem?
                            (lambda (e)
-                             (fprintf 
+                             (eprintf
-                              (current-error-port)
                               "Cannot write debug output to file \"~a\": ~a\n"
                               file
                               (exn-message e))))]

collects/parser-tools/yacc.rkt

@@ -172,8 +172,7 @@
            (when (and yacc-output (not (string=? yacc-output "")))
              (with-handlers [(exn:fail:filesystem?
                               (lambda (e)
-                                (fprintf 
+                                (eprintf
-                                 (current-error-port)
                                  "Cannot write yacc-output to file \"~a\"\n"
                                  yacc-output)))]
                (call-with-output-file yacc-output